[Catalyst-commits] r9238 - in Catalyst-Devel/1.10/trunk: . lib/Catalyst

[zarquon at dev.catalyst.perl.org]

Author: zarquon
Date: 2009-02-08 01:07:25 +0000 (Sun, 08 Feb 2009)
New Revision: 9238

Modified:
   Catalyst-Devel/1.10/trunk/Changes
   Catalyst-Devel/1.10/trunk/lib/Catalyst/Helper.pm
Log:
windows sucks partly due to lacking /usr/bin/env

Modified: Catalyst-Devel/1.10/trunk/Changes
===================================================================
--- Catalyst-Devel/1.10/trunk/Changes	2009-02-07 02:00:28 UTC (rev 9237)
+++ Catalyst-Devel/1.10/trunk/Changes	2009-02-08 01:07:25 UTC (rev 9238)
@@ -1,7 +1,7 @@
 This file documents the revision history for Perl extension Catalyst-Devel.
 
 x.xx   2009-07-02
-        - Change shebang in helper to #!/usr/bin/env perl
+        - Change shebang in helper to #!/usr/bin/env perl if on unix
 
 1.05    2008-05-11
         - Moved Helper.pm to generate .conf rather than YAML

Modified: Catalyst-Devel/1.10/trunk/lib/Catalyst/Helper.pm
===================================================================
--- Catalyst-Devel/1.10/trunk/lib/Catalyst/Helper.pm	2009-02-07 02:00:28 UTC (rev 9237)
+++ Catalyst-Devel/1.10/trunk/lib/Catalyst/Helper.pm	2009-02-08 01:07:25 UTC (rev 9238)
@@ -126,7 +126,9 @@
     $self->{script          } = File::Spec->catdir( $self->{dir}, 'script' );
     $self->{appprefix       } = Catalyst::Utils::appprefix($name);
     $self->{appenv          } = Catalyst::Utils::class2env($name);
-    $self->{startperl       } = "#!/usr/bin/env perl -w";
+    $self->{startperl       } = $^O eq 'MSWin32' ?
+        "#!$Config{perlpath} -w" :
+            "#!/usr/bin/env perl -w";
     $self->{scriptgen       } = $Catalyst::Devel::CATALYST_SCRIPT_GEN || 4;
     $self->{catalyst_version} = $Catalyst::VERSION;
     $self->{author          } = $self->{author} = $ENV{'AUTHOR'}