Commit 99078006 authored by Dean Pearce's avatar Dean Pearce Committed by David Golden

Add port to CONNECT command

HTTP CONNECT command requires host:port for full compatibility with all
proxies
parent f0adba78
......@@ -483,6 +483,7 @@ sub _request {
method => $method,
scheme => $scheme,
host => $host,
port => $port,
host_port => ($port == $DefaultPort{$scheme} ? $host : "$host:$port"),
uri => $path_query,
headers => {},
......@@ -619,9 +620,9 @@ sub _create_proxy_tunnel {
my $connect_request = {
method => 'CONNECT',
uri => $request->{host_port},
uri => "$request->{host}:$request->{port}",
headers => {
host => $request->{host_port},
host => "$request->{host}:$request->{port}",
'user-agent' => $agent,
}
};
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment