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 (file)
--- 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 (file)
--- 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;