diff options
-rwxr-xr-x | mansrv | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -128,25 +128,25 @@ sub interpret_file($$) { 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); } } |