X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FHelper.pm;h=a717bee9d4c10325c8afce68a8b78b1e972f21dd;hb=b284d6a7d2d21b9164b5e039377c581f0aa25679;hp=7ed7b5b7d4b3b7713f766af4f2e1f34af69b893f;hpb=fe2cf2a39c8ed0db07dd13ad6fe3aa0a8f477b0e;p=catagits%2FCatalyst-Runtime.git

diff --git a/lib/Catalyst/Helper.pm b/lib/Catalyst/Helper.pm
index 7ed7b5b..a717bee 100644
--- a/lib/Catalyst/Helper.pm
+++ b/lib/Catalyst/Helper.pm
@@ -64,7 +64,7 @@ sub mk_app {
     $self->{appprefix} = lc $self->{dir};
     $self->{appprefix} =~ s/-/_/g;
     $self->{startperl} = $Config{startperl};
-    $self->{scriptgen} = $Catalyst::CATALYST_SCRIPT_GEN;
+    $self->{scriptgen} = $Catalyst::CATALYST_SCRIPT_GEN || 4;
     $self->{author}    = $self->{author} = $ENV{'AUTHOR'}
       || eval { @{ [ getpwuid($<) ] }[6] }
       || 'Catalyst developer';
@@ -191,7 +191,7 @@ sub mk_dir {
         print qq/ exists "$dir"\n/;
         return 0;
     }
-    if ( mkpath $dir) {
+    if ( mkpath [$dir] ) {
         print qq/created "$dir"\n/;
         return 1;
     }
@@ -430,13 +430,13 @@ __appclass__
 package [% name %];
 
 use strict;
-use base 'Catalyst';
+use Catalyst qw/-Debug/;
 
 our $VERSION = '0.01';
 
 [% name %]->config( name => '[% name %]' );
 
-[% name %]->setup( qw/-Debug/ );
+[% name %]->setup;
 
 =head1 NAME
 
@@ -830,6 +830,7 @@ sub default : Private {
 }
 
 =back
+
 [% END %]
 =head1 AUTHOR