Bug 140564 - Unquoted variable in regexp in globals.pl. Patch by xor@ivwnet.com; 2xr=gerv.

This commit is contained in:
gerv%gerv.net 2002-04-29 19:37:52 +00:00
parent 0c3f16c6e4
commit 0df86ca840

View File

@ -1649,7 +1649,7 @@ sub GetOutputFormats {
# Loop over each file in the sub-directory looking for format files
# (files whose name looks like SCRIPT-FORMAT.EXT.tmpl).
foreach my $file (@files) {
if ($file =~ /^$script-(.+)\.(.+)\.(tmpl)$/) {
if ($file =~ /^\Q$script\E-(.+)\.(.+)\.(tmpl)$/) {
$formats->{$1} = {
'template' => $file ,
'extension' => $2 ,