X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FTest%2FWWW%2FMechanize%2FCatalyst.pm;fp=lib%2FTest%2FWWW%2FMechanize%2FCatalyst.pm;h=eab855ee818526cee9b58a11c64f4df3f010eafc;hb=6ad1315b455d503e9da6f185a4e520b9da33c107;hp=0cd3ef52b661f1496c9b7dfd84485c8bd1f4992c;hpb=3db964e44dca599b1e4be64b620e93a2f8effc26;p=catagits%2FTest-WWW-Mechanize-Catalyst.git

diff --git a/lib/Test/WWW/Mechanize/Catalyst.pm b/lib/Test/WWW/Mechanize/Catalyst.pm
index 0cd3ef5..eab855e 100644
--- a/lib/Test/WWW/Mechanize/Catalyst.pm
+++ b/lib/Test/WWW/Mechanize/Catalyst.pm
@@ -133,6 +133,7 @@ sub _set_host_header {
       my $host = $self->has_host
                ? $self->host
                : $request->uri->host;
+      $host .= ':'.$request->uri->_port if $request->uri->_port;
       $request->header('Host', $host);
     }
 }