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

diff --git a/globals.pl b/globals.pl
index 2dd4dbc988c753bdc3d9998bf1468cc9a144e9f1..2bbaf3b1504680573e8ad565e50d4b4bbc071c23 100644 (file)
--- a/globals.pl
+++ b/globals.pl
@@ -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 ,