[Catalyst-commits] r10707 - Catalyst-Devel/1.00/trunk/lib/Catalyst

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-06-28 17:53:11 +0000 (Sun, 28 Jun 2009)
New Revision: 10707

Modified:
   Catalyst-Devel/1.00/trunk/lib/Catalyst/Helper.pm
Log:
Always use unix paths in generated Makefile.PLs.

Modified: Catalyst-Devel/1.00/trunk/lib/Catalyst/Helper.pm
===================================================================
--- Catalyst-Devel/1.00/trunk/lib/Catalyst/Helper.pm	2009-06-28 17:31:42 UTC (rev 10706)
+++ Catalyst-Devel/1.00/trunk/lib/Catalyst/Helper.pm	2009-06-28 17:53:11 UTC (rev 10707)
@@ -5,6 +5,7 @@
 use base 'Class::Accessor::Fast';
 use Config;
 use File::Spec;
+use File::Spec::Unix;
 use File::Path;
 use FindBin;
 use IO::File;
@@ -360,7 +361,7 @@
 
 sub _mk_makefile {
     my $self = shift;
-    $self->{path} = File::Spec->catfile( 'lib', split( '::', $self->{name} ) );
+    $self->{path} = File::Spec::Unix->catfile( 'lib', split( '::', $self->{name} ) );
     $self->{path} .= '.pm';
     my $dir = $self->{dir};
     $self->render_sharedir_file( 'Makefile.PL.tt', "$dir\/Makefile.PL" );