Fix: upgrade problem

This commit is contained in:
Regis Houssin 2010-04-03 23:53:44 +00:00
parent 00ae4c6f72
commit d883a88e2e

View File

@ -179,10 +179,10 @@ local $olddocdir = &transname();
local $url; local $url;
$path = &script_path_url($d, $opts); $path = &script_path_url($d, $opts);
if ($path =~ /^https:/) { if ($path =~ /^https:/) {
$url = "https://www.$d->{'dom'}"; $url = "https://$d->{'dom'}";
} }
else { else {
$url = "http://www.$d->{'dom'}"; $url = "http://$d->{'dom'}";
} }
if ($opts->{'path'} =~ /\w/) { if ($opts->{'path'} =~ /\w/) {
$url .= $opts->{'path'}; $url .= $opts->{'path'};