Permalink
Browse files

Merge pull request #152 from audreyt/master

Small patch to support "plackup -s Feersum"
  • Loading branch information...
2 parents 2cf59ac + 30f8156 commit 41258729877cc2b3aa3f00c2dcf259e2cb9e1164 @kraih committed May 28, 2011
Showing with 4 additions and 2 deletions.
  1. +4 −2 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);

0 comments on commit 4125872

Please sign in to comment.