__cgi__
[% startperl %] -w
-BEGIN { $ENV{CATALYST_ENGINE} = 'CGI' }
+BEGIN { $ENV{CATALYST_ENGINE} ||= 'CGI' }
use strict;
use FindBin;
__fastcgi__
[% startperl %] -w
-BEGIN { $ENV{CATALYST_ENGINE} = 'FastCGI' }
+BEGIN { $ENV{CATALYST_ENGINE} ||= 'FastCGI' }
use strict;
use FindBin;
[% startperl %] -w
BEGIN {
- $ENV{CATALYST_ENGINE} = 'HTTP';
+ $ENV{CATALYST_ENGINE} ||= 'HTTP';
$ENV{CATALYST_SCRIPT_GEN} = [% scriptgen %];
}
__test__
[% startperl %] -w
-BEGIN { $ENV{CATALYST_ENGINE} = 'Test' }
+BEGIN { $ENV{CATALYST_ENGINE} ||= 'Test' }
use strict;
use Getopt::Long;