From: Robery Buels <rbuels@gmail.com>
Date: Thu, 13 Oct 2011 21:10:16 +0000 (+0000)
Subject: add port to Host header
X-Git-Tag: 0.56~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FTest-WWW-Mechanize-Catalyst.git;a=commitdiff_plain;h=6ad1315b455d503e9da6f185a4e520b9da33c107;hp=3db964e44dca599b1e4be64b620e93a2f8effc26

add port to Host header
---

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);
     }
 }