X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FEngine%2FTest.pm;h=8173bdef41643381f325b4029dc4d4e5f0af7987;hb=b14151e76ebbd0a776e7955238ce1afbc1985a33;hp=04cc52244cf82c7bc9439d25d1ab84f6603a1aba;hpb=4d60aa90da6f1ac4b9ce73c2fba59bbd7c182de0;p=catagits%2FCatalyst-Runtime.git

diff --git a/lib/Catalyst/Engine/Test.pm b/lib/Catalyst/Engine/Test.pm
index 04cc522..8173bde 100644
--- a/lib/Catalyst/Engine/Test.pm
+++ b/lib/Catalyst/Engine/Test.pm
@@ -60,6 +60,10 @@ sub run {
 
     $request = Catalyst::Utils::request($request);
 
+    $request->header(
+        'Host' => sprintf( '%s:%d', $request->uri->host, $request->uri->port )
+    );
+
     # We emulate CGI
     local %ENV = (
         PATH_INFO    => $request->uri->path  || '',