diff options
-rwxr-xr-x | mansrv | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -134,13 +134,13 @@ sub interpret_file($$) { | |||
134 | ${$s->varglob('PACKAGE')} = $package_name; | 134 | ${$s->varglob('PACKAGE')} = $package_name; |
135 | ${$s->varglob('VERSION')} = $VERSION; | 135 | ${$s->varglob('VERSION')} = $VERSION; |
136 | ${$s->varglob('SERVER')} = "$ENV{REQUEST_SCHEME}://$ENV{SERVER_NAME}"; | 136 | ${$s->varglob('SERVER')} = "$ENV{REQUEST_SCHEME}://$ENV{SERVER_NAME}"; |
137 | 137 | ||
138 | while (<$ifd>) { | 138 | while (<$ifd>) { |
139 | chomp; | 139 | chomp; |
140 | s/\{%(.*)%\}/expand_template($s, $1, $file, $.)/ex; | 140 | s/\{%(.*?)%\}/expand_template($s, $1, $file, $.)/gex; |
141 | print $ofd "$_\n"; | 141 | print $ofd "$_\n"; |
142 | } | 142 | } |
143 | close($ifd); | 143 | close($ifd); |
144 | } | 144 | } |
145 | 145 | ||
146 | sub interpret { | 146 | sub interpret { |