Allow for multiple template escapes on a single line.HEADmaster

1 files changed, 1 insertions, 1 deletions

diff --git a/mansrv b/mansrv
index b4d3cca..25e56e7 100755
--- a/mansrv
+++ b/mansrv
@@ -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);
     }
 }