fixed base

diff --git a/Changes b/Changes
index c22d711..f16a088 100644 (file)
--- a/Changes
+++ b/Changes
@@ -2,6 +2,8 @@ This file documents the revision history for Perl extension Catalyst.
 
 4.31  XXX XXX XX XX:00:00 2005
         - fixed inheritance (Christian Hansen)
+        - previous release was borked!
+          fixed that, but you have to regenerate the scripts again :(
 
 4.30  Mon Mar 22 23:00:00 2005
         - more documentation (Andrew Ford)

diff --git a/lib/Catalyst/Helper.pm b/lib/Catalyst/Helper.pm
index 9f6b765..5e21f2a 100644 (file)
--- 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;