[Catalyst-commits] r12317 - Catalyst-Runtime/5.80/trunk/t/aggregate

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-12-11 23:28:09 +0000 (Fri, 11 Dec 2009)
New Revision: 12317

Modified:
   Catalyst-Runtime/5.80/trunk/t/aggregate/unit_core_engine_cgi-prepare_path.t
Log:
moar better warnings fix.

Modified: Catalyst-Runtime/5.80/trunk/t/aggregate/unit_core_engine_cgi-prepare_path.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/aggregate/unit_core_engine_cgi-prepare_path.t	2009-12-11 23:26:08 UTC (rev 12316)
+++ Catalyst-Runtime/5.80/trunk/t/aggregate/unit_core_engine_cgi-prepare_path.t	2009-12-11 23:28:09 UTC (rev 12317)
@@ -6,11 +6,6 @@
 use TestApp;
 use Catalyst::Engine::CGI;
 
-our %template = (
-    HTTP_HOST => 'www.foo.com',
-    PATH_INFO => '/',
-);
-
 # mod_rewrite to app root for non / based app
 {
     my $r = get_req (
@@ -62,7 +57,13 @@
 #       - Test scheme (secure request on port 80)
 
 sub get_req {
+    my %template = (
+        HTTP_HOST => 'www.foo.com',
+        PATH_INFO => '/',
+    );
+
     local %ENV = (%template, @_);
+
     my $i = TestApp->new;
     $i->engine(Catalyst::Engine::CGI->new);
     $i->engine->prepare_path($i);