script gen updates

diff --git a/lib/Catalyst/Devel.pm b/lib/Catalyst/Devel.pm
index 4c3686a..c6129b3 100644 (file)
--- a/lib/Catalyst/Devel.pm
+++ b/lib/Catalyst/Devel.pm
@@ -3,7 +3,8 @@ package Catalyst::Devel;
 use strict;\r
 use warnings;\r
 \r
-our VERSION = '1.00';\r
+our $VERSION              = '1.00';\r
+our $CATALYST_SCRIPT_GEN = 28;\r
 \r
 =head1 NAME
 

diff --git a/lib/Catalyst/Helper.pm b/lib/Catalyst/Helper.pm
index 75a9a37..a6a36e0 100644 (file)
--- a/lib/Catalyst/Helper.pm
+++ b/lib/Catalyst/Helper.pm
@@ -9,6 +9,7 @@ use File::Path;
 use IO::File;
 use FindBin;
 use Template;
+use Catalyst::Devel;
 use Catalyst::Utils;
 use Catalyst::Exception;
 
@@ -74,7 +75,7 @@ sub mk_app {
     $self->{script          } = File::Spec->catdir( $self->{dir}, 'script' );
     $self->{appprefix       } = Catalyst::Utils::appprefix($name);
     $self->{startperl       } = "#!$Config{perlpath} -w";
-    $self->{scriptgen       } = $Catalyst::CATALYST_SCRIPT_GEN || 4;
+    $self->{scriptgen       } = $Catalyst::Devel::CATALYST_SCRIPT_GEN || 4;
     $self->{catalyst_version} = $Catalyst::VERSION;
     $self->{author          } = $self->{author} = $ENV{'AUTHOR'}
       || eval { @{ [ getpwuid($<) ] }[6] }