diff options
-rwxr-xr-x | mansrv | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -133,7 +133,7 @@ sub interpret_file($$) { ${$s->varglob('SECTION')} = $ARGV[0]; ${$s->varglob('PACKAGE')} = $package_name; ${$s->varglob('VERSION')} = $VERSION; - ${$s->varglob('SERVER')} = "$proto://$ENV{SERVER_NAME}"; + ${$s->varglob('SERVER')} = "$ENV{REQUEST_SCHEME}://$ENV{SERVER_NAME}"; while (<$ifd>) { chomp; |