projects
/
catagits/Test-WWW-Mechanize-Catalyst.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
add port to Host header
[catagits/Test-WWW-Mechanize-Catalyst.git]
/
lib
/
Test
/
WWW
/
Mechanize
/
Catalyst.pm
diff --git
a/lib/Test/WWW/Mechanize/Catalyst.pm
b/lib/Test/WWW/Mechanize/Catalyst.pm
index
0cd3ef5
..
eab855e
100644
(file)
--- 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);
}
}