diff options
Diffstat (limited to 'mansrv')
-rwxr-xr-x | mansrv | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -116,49 +116,49 @@ sub expand_template { my $r = $comp->reval($code); unless (defined($r)) { syslog("LOG_ERR", "%s:%d: error expanding template expression %s", $file, $line, $code); $r = ''; } return $r; } sub interpret_file($$) { my ($ofd, $file) = @_; my $ifd; open($ifd, $file) or syserror("cannot open $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')} = "$ENV{REQUEST_SCHEME}://$ENV{SERVER_NAME}"; while (<$ifd>) { chomp; - s/\{%(.*)%\}/expand_template($s, $1, $file, $.)/ex; + s/\{%(.*?)%\}/expand_template($s, $1, $file, $.)/gex; print $ofd "$_\n"; } close($ifd); } sub interpret { my $fd = shift; foreach my $file (@_) { interpret_file($fd, $file); } } sub addopts($) { my $file = shift; my $fd; open($fd, $file) or return; while (<$fd>) { chomp; s/^\s+//; s/\s+$//; s/#.*//; next if ($_ eq ""); push @grohtml_opts, "-P $_"; |