From 6be616ed3df7009cdd8f4d0363bc11db9f8902b0 Mon Sep 17 00:00:00 2001
From: "gerv%gerv.net" <>
Date: Tue, 30 Apr 2002 02:37:52 +0000
Subject: Bug 140564 - Unquoted variable in regexp in globals.pl. Patch by
 xor@ivwnet.com; 2xr=gerv.

---
 globals.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'globals.pl')

diff --git a/globals.pl b/globals.pl
index 2dd4dbc98..2bbaf3b15 100644
--- 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 , 
-- 
cgit v1.2.3-24-g4f1b