From: Florian Ragwitz <rafl@debian.org>
Date: Sun, 10 Jan 2010 19:05:43 +0000 (+0000)
Subject: Stop expecting the Host header for proxy requests to be the original one.
X-Git-Tag: 5.89000~53
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=72eeaf404328dcd54ab95ca5676626a68066cac4;hp=c2f4a965484d7f564f72dca3e3c5fb262d896fa9;p=catagits%2FCatalyst-Runtime.git

Stop expecting the Host header for proxy requests to be the original one.

Doing this was probably stupid in the first place, and now we're handing all
the frontend proxy stuff off to plack, we shouldn't even care anymore. The
middleware is free to set HTTP_HOST to HTTP_X_FORWARDED_HOST for us.
---

diff --git a/t/aggregate/live_engine_request_headers.t b/t/aggregate/live_engine_request_headers.t
index 0e1c929..4e4ab74 100644
--- a/t/aggregate/live_engine_request_headers.t
+++ b/t/aggregate/live_engine_request_headers.t
@@ -45,7 +45,7 @@ use HTTP::Request::Common;
 
     is( $creq->header('User-Agent'), $request->header('User-Agent'), 'Catalyst::Request->header User-Agent' );
 
-    my $host = sprintf( '%s:%d', $request->uri->host, $request->uri->port );
+    my $host = sprintf( '%s:%d', $request->header('X-Forwarded-Host'), $request->header('X-Forwarded-Port') );
     is( $creq->header('Host'), $host, 'Catalyst::Request->header Host' );
 
     SKIP: