aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2019-10-07 13:24:55 +0200
committerSergey Poznyakoff <gray@gnu.org.ua>2019-10-07 13:24:55 +0200
commit2e8ca04ce3f407da2bd9e892d1498de05d18f559 (patch)
tree70c2b81e6c28a575757ae3369f5c3514b756b2bf
parent59065ff6e02b605cddb55c15436b294f553c8619 (diff)
downloadmansrv-2e8ca04ce3f407da2bd9e892d1498de05d18f559.tar.gz
mansrv-2e8ca04ce3f407da2bd9e892d1498de05d18f559.tar.bz2
Bugfix
-rwxr-xr-xmansrv2
1 files changed, 1 insertions, 1 deletions
diff --git a/mansrv b/mansrv
index 5e99ec1..b4d3cca 100755
--- a/mansrv
+++ b/mansrv
@@ -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";
}

Return to:

Send suggestions and report system problems to the System administrator.