minor pod fix to make tests pass.

[catagits/Catalyst-Runtime.git] / lib / Catalyst / Helper.pm

diff --git a/lib/Catalyst/Helper.pm b/lib/Catalyst/Helper.pm
index 7ed7b5b..a717bee 100644 (file)
--- 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