Merge pull request #691 from ipaponov/devel

behind proxy an X-Forwarded-Host
PerlDancer · Nov 10, 2011 · c41f44b · c41f44b
2 parents 359a4d2 + 6adc491
commit c41f44b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Dancer/Request.pm b/lib/Dancer/Request.pm
@@ -57,7 +57,7 @@ sub host {
         $_[0]->{host} = $_[1];
     } else {
         my $host;
-        $host = $_[0]->env->{X_FORWARDED_HOST} if setting('behind_proxy');
+        $host = ($_[0]->env->{X_FORWARDED_HOST} || $_[0]->env->{HTTP_X_FORWARDED_HOST}) if setting('behind_proxy');
         $host || $_[0]->{host} || $_[0]->env->{HTTP_HOST};
     }
 }