diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2019-10-07 13:24:55 +0200 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2019-10-07 13:24:55 +0200 |
commit | 2e8ca04ce3f407da2bd9e892d1498de05d18f559 (patch) | |
tree | 70c2b81e6c28a575757ae3369f5c3514b756b2bf | |
parent | 59065ff6e02b605cddb55c15436b294f553c8619 (diff) | |
download | mansrv-2e8ca04ce3f407da2bd9e892d1498de05d18f559.tar.gz mansrv-2e8ca04ce3f407da2bd9e892d1498de05d18f559.tar.bz2 |
Bugfix
-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"; } |