[Catalyst-commits] r11249 - Catalyst-Devel/1.00/trunk/lib/Catalyst/Restarter

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2009-08-26 18:33:32 +0000 (Wed, 26 Aug 2009)
New Revision: 11249

Modified:
   Catalyst-Devel/1.00/trunk/lib/Catalyst/Restarter/Win32.pm
Log:
Fix -I issues for win32

Modified: Catalyst-Devel/1.00/trunk/lib/Catalyst/Restarter/Win32.pm
===================================================================
--- Catalyst-Devel/1.00/trunk/lib/Catalyst/Restarter/Win32.pm	2009-08-26 15:49:53 UTC (rev 11248)
+++ Catalyst-Devel/1.00/trunk/lib/Catalyst/Restarter/Win32.pm	2009-08-26 18:33:32 UTC (rev 11249)
@@ -16,7 +16,7 @@
 
     # This is totally hack-tastic, and is probably much slower, but it
     # does seem to work.
-    my @command = ( $^X, $0, grep { ! /^\-r/ } @{ $self->argv } );
+    my @command = ( $^X, map("-I$_", @INC), $0, grep { ! /^\-r/ } @{ $self->argv } );
 
     my $child = Proc::Background->new(@command);