X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FHelper.pm;h=5e21f2aa60544ecb92d87569e9186669671832ab;hp=9f6b7650f4a0525273e5ed744ca2094cf71b21cc;hb=c0d174dc5c2f3c5deef051d5c49dd0b8979e9084;hpb=1c99e1250cfd5cdefb5f36bd08b974c9384412e5

diff --git a/lib/Catalyst/Helper.pm b/lib/Catalyst/Helper.pm
index 9f6b765..5e21f2a 100644
--- a/lib/Catalyst/Helper.pm
+++ b/lib/Catalyst/Helper.pm
@@ -325,7 +325,10 @@ sub _mk_cgi {
     $self->mk_file( "$script\/nph-cgi.pl", <<"EOF");
 $Config{startperl} -w
 
-BEGIN { \$ENV{CATALYST_ENGINE} = 'CGI' }
+BEGIN {
+    \$ENV{CATALYST_ENGINE} = 'CGI';
+    \$ENV{CATALYST_TEST    = 1;
+}
 
 use strict;
 use FindBin;
@@ -374,6 +377,7 @@ $Config{startperl} -w
 
 BEGIN { 
     \$ENV{CATALYST_ENGINE} = 'Server';
+    \$ENV{CATALYST_TEST}   = 1;
 }
 
 use strict;
@@ -440,6 +444,7 @@ $Config{startperl} -w
 
 BEGIN { 
     \$ENV{CATALYST_ENGINE} = 'Server';
+    \$ENV{CATALYST_TEST}   = 1;
 }
 
 use strict;