From: Tomas Doran <bobtfish@bobtfish.net>
Date: Sun, 24 Jul 2011 17:05:45 +0000 (+0100)
Subject: Add _set_env writer to non-PSGI Catalyst
X-Git-Tag: 5.9000~15
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=13985c0aedd0003d3a722c6a729ef19e998f891c

Add _set_env writer to non-PSGI Catalyst
---

diff --git a/lib/Catalyst/Engine.pm b/lib/Catalyst/Engine.pm
index 793591d..b7f57fd 100644
--- a/lib/Catalyst/Engine.pm
+++ b/lib/Catalyst/Engine.pm
@@ -15,7 +15,7 @@ use utf8;
 
 use namespace::clean -except => 'meta';
 
-has env => (is => 'rw');
+has env => (is => 'rw', writer => '_set_env');
 
 # input position and length
 has read_length => (is => 'rw');
diff --git a/lib/Catalyst/Engine/CGI.pm b/lib/Catalyst/Engine/CGI.pm
index 4f7a83b..bd670da 100644
--- a/lib/Catalyst/Engine/CGI.pm
+++ b/lib/Catalyst/Engine/CGI.pm
@@ -261,7 +261,7 @@ sub prepare_request {
     my ( $self, $c, %args ) = @_;
 
     if ( $args{env} ) {
-        $self->env( $args{env} );
+        $self->_set_env( $args{env} );
     }
 }