From: Matt S Trout <mst@shadowcat.co.uk>
Date: Mon, 28 Jun 2010 22:46:30 +0000 (+0100)
Subject: rename ENV to PSGI_ENV (*ENV is forced into main::)
X-Git-Tag: v0.003~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FWeb-Simple.git;a=commitdiff_plain;h=c7b1c57f2dd693c14726456768339d40de9954ab

rename ENV to PSGI_ENV (*ENV is forced into main::)
---

diff --git a/lib/Web/Simple.pm b/lib/Web/Simple.pm
index c899c3a..80c1f47 100644
--- a/lib/Web/Simple.pm
+++ b/lib/Web/Simple.pm
@@ -45,7 +45,7 @@ sub _export_into {
     *{"${app_package}::default_config"} = sub {
       $app_package->_setup_default_config(@_);
     };
-    *{"${app_package}::ENV"} = sub () { -1 };
+    *{"${app_package}::PSGI_ENV"} = sub () { -1 };
     *{"${app_package}::self"} = \${"${app_package}::self"};
     require Web::Simple::Application;
     unshift(@{"${app_package}::ISA"}, 'Web::Simple::Application');
diff --git a/t/env.t b/t/env.t
index 7a97658..4cc0c4e 100644
--- a/t/env.t
+++ b/t/env.t
@@ -12,7 +12,7 @@ use Test::More (
   package EnvTest;
   dispatch {
     sub (GET) {
-      my $env = @_[ENV];
+      my $env = @_[PSGI_ENV];
       [ 200,
         [ "Content-type" => "text/plain" ],
         [ 'foo' ]
@@ -33,4 +33,4 @@ sub run_request {
   return $c->response;
 }
 
-run_request(GET 'http://localhost/');
+ok run_request(GET 'http://localhost/')->is_success;