diff options
Diffstat (limited to 'mansrv')
-rwxr-xr-x | mansrv | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -130,13 +130,13 @@ sub interpret_file($$) { my $s = new Safe 'Root' ; %{$s->varglob('ENV')} = %ENV; ${$s->varglob('TITLE')} = $ARGV[1]; ${$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; s/\{%(.*)%\}/expand_template($s, $1, $file, $.)/ex; print $ofd "$_\n"; } |