[Catalyst-commits] r14129 - Test-WWW-Mechanize-Catalyst/trunk/lib/Test/WWW/Mechanize

[rbuels at dev.catalyst.perl.org]

Author: rbuels
Date: 2011-10-13 21:10:16 +0000 (Thu, 13 Oct 2011)
New Revision: 14129

Modified:
   Test-WWW-Mechanize-Catalyst/trunk/lib/Test/WWW/Mechanize/Catalyst.pm
Log:
add port to Host header

Modified: Test-WWW-Mechanize-Catalyst/trunk/lib/Test/WWW/Mechanize/Catalyst.pm
===================================================================
--- Test-WWW-Mechanize-Catalyst/trunk/lib/Test/WWW/Mechanize/Catalyst.pm	2011-10-07 10:20:38 UTC (rev 14128)
+++ Test-WWW-Mechanize-Catalyst/trunk/lib/Test/WWW/Mechanize/Catalyst.pm	2011-10-13 21:10:16 UTC (rev 14129)
@@ -133,6 +133,7 @@
       my $host = $self->has_host
                ? $self->host
                : $request->uri->host;
+      $host .= ':'.$request->uri->_port if $request->uri->_port;
       $request->header('Host', $host);
     }
 }