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