Commit 76dffd04 authored by Clément OUDOT's avatar Clément OUDOT
Browse files

Set port in reload URLs (#1104)

parent 26a47742
......@@ -1016,7 +1016,9 @@ sub applyConf {
my $r = HTTP::Request->new( 'GET', "http://$host$request");
if ($request =~ /^https?:\/\/[^\/]+.*$/) {
my $url = URI::URL->new($request);
my $targetUrl = $url->scheme."://$host".$url->full_path;
my $targetUrl = $url->scheme."://".$host;
$targetUrl .= ":".$url->port if defined ($url->port);
$targetUrl .= $url->full_path;
$r =
HTTP::Request->new( 'GET', $targetUrl,
HTTP::Headers->new( Host => $url->host ) );
......
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