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

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-10-05 21:30:59 +0000 (Mon, 05 Oct 2009)
New Revision: 11454

Modified:
   Catalyst-Devel/1.00/trunk/lib/Catalyst/Helper.pm
Log:
Why is 4 randomly hard coded there. If we can't get it from the right place, go bang

Modified: Catalyst-Devel/1.00/trunk/lib/Catalyst/Helper.pm
===================================================================
--- Catalyst-Devel/1.00/trunk/lib/Catalyst/Helper.pm	2009-10-05 11:57:34 UTC (rev 11453)
+++ Catalyst-Devel/1.00/trunk/lib/Catalyst/Helper.pm	2009-10-05 21:30:59 UTC (rev 11454)
@@ -62,7 +62,8 @@
     $self->{startperl       } = -r '/usr/bin/env'
                                 ? '#!/usr/bin/env perl'
                                 : "#!$Config{perlpath} -w";
-    $self->{scriptgen       } = $Catalyst::Devel::CATALYST_SCRIPT_GEN || 4;
+    $self->{scriptgen       } = $Catalyst::Devel::CATALYST_SCRIPT_GEN
+        || die("Could not find SCRIPT_GEN");
     $self->{catalyst_version} = $Catalyst::VERSION;
     $self->{author          } = $self->{author} = $ENV{'AUTHOR'}
       || eval { @{ [ getpwuid($<) ] }[6] }