From 138c7e3cd29f32c4c58760c06a3be5ac535509d4 Mon Sep 17 00:00:00 2001
From: wollman <wollman@FreeBSD.org>
Date: Fri, 9 Sep 1994 22:19:15 +0000
Subject: Escapemetacharacters in directory name so perl doesn't blow chunks on
 libg++. CVS:

---
 CVSROOT/log_accum.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'CVSROOT')

diff --git a/CVSROOT/log_accum.pl b/CVSROOT/log_accum.pl
index 73bf32f3d48c..1ad3aa808b39 100755
--- a/CVSROOT/log_accum.pl
+++ b/CVSROOT/log_accum.pl
@@ -370,7 +370,9 @@ for ($i = 0; ; $i++) {
 #
 if (-e "$LAST_FILE.$id") {
    $_ = &read_line("$LAST_FILE.$id");
-   exit 0 if (! grep(/$files[0]$/, $_));
+   $tmpfiles=$files[0];
+   $tmpfiles =~ s,([^a-zA-Z0-9_/]),\\$1,g;
+   exit 0 if (! grep(/$tmpfiles$/, $_));
 }
 
 #
-- 
cgit