Always use unix paths in generated Makefile.PLs.
Florian Ragwitz [Sun, 28 Jun 2009 17:53:11 +0000 (17:53 +0000)]
lib/Catalyst/Helper.pm

index fc88d18..72a2c97 100644 (file)
@@ -5,6 +5,7 @@ use warnings;
 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_rootclass {
 
 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" );