use IO::File;
use FindBin;
use Template;
+our $CATALYST_SCRIPT_GEN = 2;
my %cache;
$self->{dir} = $name;
$self->{dir} =~ s/\:\:/-/g;
$self->{startperl} = $Config{startperl};
+ $self->{scriptgen}=$CATALYST_SCRIPT_GEN;
$self->_mk_dirs;
$self->_mk_appclass;
$self->_mk_makefile;
__server__
[% startperl %] -w
-BEGIN { $ENV{CATALYST_ENGINE} = 'HTTP' }
+BEGIN {
+ $ENV{CATALYST_ENGINE} = 'HTTP';
+ $ENV{CATALYST_SCRIPT_GEN} = [% scriptgen %];
+}
use strict;
use Getopt::Long;