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;
$path = &script_path_url($d, $opts);
if ($path =~ /^https:/) {
$url = "https://www.$d->{'dom'}";
$url = "https://$d->{'dom'}";
}
else {
$url = "http://www.$d->{'dom'}";
$url = "http://$d->{'dom'}";
}
if ($opts->{'path'} =~ /\w/) {
$url .= $opts->{'path'};