X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=script%2Fcatalyst.pl;fp=script%2Fcatalyst.pl;h=7514e1178ab2f5f0fc96a56476748d7c9488db80;hb=ef3250bcc579b6ace8ec3bc0b4d93b9660162994;hp=161af6ae6f7d6fe2e697d7f8f4ca9c918834cdae;hpb=fb9257c1ef523c89c4d5b8accd000809ded660e9;p=catagits%2FCatalyst-Runtime.git

diff --git a/script/catalyst.pl b/script/catalyst.pl
index 161af6a..7514e11 100755
--- a/script/catalyst.pl
+++ b/script/catalyst.pl
@@ -5,13 +5,15 @@ use Getopt::Long;
 use Pod::Usage;
 use Catalyst::Helper;
 
-my $help = 0;
+my $help  = 0;
+my $nonew = 0;
 
-GetOptions( 'help|?' => \$help );
+GetOptions( 'help|?' => \$help,
+	    'nonew'  => \$nonew );
 
 pod2usage(1) if ( $help || !$ARGV[0] );
 
-my $helper = Catalyst::Helper->new;
+my $helper = Catalyst::Helper->new({'.newfiles' => !$nonew});
 pod2usage(1) unless $helper->mk_app( $ARGV[0] );
 
 1;
@@ -27,6 +29,7 @@ catalyst.pl [options] application-name
 
  Options:
    -help        display this help and exits
+   -nonew       don't create a .new file where a file to be created exists
 
  application-name has to be a valid Perl module name and can include ::