From 7f5862fc6877c34236f4d121163fe37e66dbbd1d Mon Sep 17 00:00:00 2001
From: Jens-Heiner Rechtien <hr@openoffice.org>
Date: Tue, 31 Jul 2007 12:10:47 +0000
Subject: INTEGRATION: CWS configure21 (1.8.22); FILE MERGED 2007/07/01
 20:31:59 rene 1.8.22.1: #i79060# quote.

---
 postprocess/checkdeliver/checkdeliver.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'postprocess')

diff --git a/postprocess/checkdeliver/checkdeliver.pl b/postprocess/checkdeliver/checkdeliver.pl
index 3e6bd61955d4..ed2a0eaee950 100644
--- a/postprocess/checkdeliver/checkdeliver.pl
+++ b/postprocess/checkdeliver/checkdeliver.pl
@@ -7,9 +7,9 @@ eval 'exec perl -wS $0 ${1+"$@"}'
 #
 #   $RCSfile: checkdeliver.pl,v $
 #
-#   $Revision: 1.8 $
+#   $Revision: 1.9 $
 #
-#   last change: $Author: vg $ $Date: 2006-11-01 10:13:33 $
+#   last change: $Author: hr $ $Date: 2007-07-31 13:10:47 $
 #
 #   The Contents of this file are made available subject to
 #   the terms of GNU Lesser General Public License Version 2.1.
@@ -148,7 +148,7 @@ sub check
     my %delivered;
     my $module;
     my $islinked = 0;
-    if ( $listname =~ /\/(\w+?)\/deliver.log$/o ) {
+    if ( $listname =~ quotemeta(/\/(\w+?)\/deliver.log$/o) ) {
         $module = $1;
     } else {
         print STDERR "Error: cannot determine module name from \'$listname\'\n";
-- 
cgit