X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FTest%2FWWW%2FMechanize%2FCatalyst.pm;h=819c5dc78c151f065a45127780eaf404c0b48b75;hb=939175b274ae6d0d9c1f711ff4c30118643c61b6;hp=0cd3ef52b661f1496c9b7dfd84485c8bd1f4992c;hpb=39ba6f9a7186eeac9e5f1be7c2de248d87740b3e;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..819c5dc 100644
--- a/lib/Test/WWW/Mechanize/Catalyst.pm
+++ b/lib/Test/WWW/Mechanize/Catalyst.pm
@@ -12,7 +12,7 @@ extends 'Test::WWW::Mechanize', 'Moose::Object';
 
 #use namespace::clean -execept => 'meta';
 
-our $VERSION = '0.55';
+our $VERSION = '0.56';
 our $APP_CLASS;
 my $Test = Test::Builder->new();
 
@@ -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);
     }
 }