| … | |
… | |
| 320 | } |
320 | } |
| 321 | |
321 | |
| 322 | my ($rhost, $rport, $rscheme, $rpath); # request host, port, path |
322 | my ($rhost, $rport, $rscheme, $rpath); # request host, port, path |
| 323 | |
323 | |
| 324 | if ($proxy) { |
324 | if ($proxy) { |
| 325 | ($rhost, $rport, $rscheme, $rpath) = (@$proxy, $url); |
325 | ($rpath, $rhost, $rport, $rscheme) = ($url, @$proxy); |
| 326 | |
326 | |
| 327 | # don't support https requests over https-proxy transport, |
327 | # don't support https requests over https-proxy transport, |
| 328 | # can't be done with tls as spec'ed. |
328 | # can't be done with tls as spec'ed, unless you double-encrypt. |
| 329 | $rscheme = "http" if $uscheme eq "https" && $rscheme eq "https"; |
329 | $rscheme = "http" if $uscheme eq "https" && $rscheme eq "https"; |
| 330 | } else { |
330 | } else { |
| 331 | ($rhost, $rport, $rscheme, $rpath) = ($uhost, $uport, $uscheme, $upath); |
331 | ($rhost, $rport, $rscheme, $rpath) = ($uhost, $uport, $uscheme, $upath); |
| 332 | } |
332 | } |
| 333 | |
333 | |
