From: Sebastian Riedel <sri@labs.kraih.com>
Date: Tue, 22 Mar 2005 03:43:53 +0000 (+0000)
Subject: fixed base
X-Git-Tag: 5.7099_04~1742
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=c0d174dc5c2f3c5deef051d5c49dd0b8979e9084

fixed base
---

diff --git a/Changes b/Changes
index c22d711..f16a088 100644
--- 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
--- 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;