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

git-svn-id: svn://10.0.0.236/trunk@120210 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
gerv%gerv.net 2002-04-29 19:37:52 +00:00
parent 769b27cf1f
commit addf50dfdd

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 ,