[Catalyst-commits] r7716 - in Catalyst-Runtime/5.70/trunk: . t

[bricas at dev.catalyst.perl.org]

Author: bricas
Date: 2008-05-07 21:10:08 +0100 (Wed, 07 May 2008)
New Revision: 7716

Modified:
   Catalyst-Runtime/5.70/trunk/Changes
   Catalyst-Runtime/5.70/trunk/t/c3_mro.t
Log:
Workaround for Win32 and c3_mro.t (RT #26452, tested by Kenichi Ishigaki)

Modified: Catalyst-Runtime/5.70/trunk/Changes
===================================================================
--- Catalyst-Runtime/5.70/trunk/Changes	2008-05-07 19:23:05 UTC (rev 7715)
+++ Catalyst-Runtime/5.70/trunk/Changes	2008-05-07 20:10:08 UTC (rev 7716)
@@ -9,6 +9,7 @@
         - POD fix, IO::FileHandle => IO::Handle (RT #35690)
         - Fix grammar on welcome page (RT #33236)
         - Fix for Path('0') handling (RT #29334)
+        - Workaround for Win32 and c3_mro.t (RT #26452, tested by Kenichi Ishigaki)
 
 5.7012  2007-12-16 23:44:00
         - Fix uri_for()'s and uri_with()'s handling of multibyte chars

Modified: Catalyst-Runtime/5.70/trunk/t/c3_mro.t
===================================================================
--- Catalyst-Runtime/5.70/trunk/t/c3_mro.t	2008-05-07 19:23:05 UTC (rev 7715)
+++ Catalyst-Runtime/5.70/trunk/t/c3_mro.t	2008-05-07 20:10:08 UTC (rev 7716)
@@ -11,6 +11,10 @@
 # Get a list of all Catalyst:: packages in blib via M::P::O
 my @cat_mods;
 {
+  # problem with @INC on win32, see:
+  # http://rt.cpan.org/Ticket/Display.html?id=26452
+  if ($^O eq 'MSWin32') { require Win32; Win32::GetCwd(); }
+
   local @INC = grep {/blib/} @INC;
   @cat_mods = (
     'Catalyst',