use local to store PATH_INFO/SCRIPT_NAME for the mapped app so $env m…

…odifications in middleware should work.
charsbar · Nov 25, 2009 · 5e57e2f · 5e57e2f
1 parent 8ac598c
commit 5e57e2f
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib/Plack/App/URLMap.pm b/lib/Plack/App/URLMap.pm
@@ -53,7 +53,9 @@ sub to_app {
             next unless $path =~ s!\Q$location\E!!;
             next unless $path eq '' or $path =~ m!/!;
 
-            return $app->({ %$env, PATH_INFO => $path, SCRIPT_NAME => $script_name . $location  });
+            local $env->{PATH_INFO}  = $path;
+            local $env->{SCRIPT_NAME} = $script_name . $location;
+            return $app->($env);
         }
 
         return [404, [ 'Content-Type' => 'text/plain' ], [ "Not Found" ]];