* Only fetch from %$env for the keys that actually matches /^HTTP_/i;

this is required for "plackup -s Feersum" support, because the "psgix.io" value provided by Feersum can only be fetched once.
audreyt · May 28, 2011 · 30f8156 · 30f8156
1 parent 2cf59ac
commit 30f8156
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/lib/Mojo/Message/Request.pm b/lib/Mojo/Message/Request.pm
@@ -252,10 +252,12 @@ sub _parse_env {
   my $base    = $url->base;
 
   # Headers
-  while (my ($name, $value) = each %$env) {
+  for my $name (keys %$env) {
 
     # Header
-    if ($name =~ s/^HTTP_//i) {
+    if ($name =~ /^HTTP_/i) {
+      my $value = $env->{$name};
+      $name =~ s/^HTTP_//i;
       $name =~ s/_/-/g;
       $headers->header($name, $value);