projects
/
catagits/Test-WWW-Mechanize-Catalyst.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
(from parent 1:
3db964e
)
add port to Host header
Robery Buels [Thu, 13 Oct 2011 21:10:16 +0000 (21:10 +0000)]
lib/Test/WWW/Mechanize/Catalyst.pm
patch
|
blob
|
blame
|
history
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);
}
}