From: Jim Meyering <jim@meyering.net>
Date: Fri, 19 Jul 2002 22:01:43 +0000 (+0000)
Subject: quotemeta
X-Git-Tag: FILEUTILS-4_1_10~18
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=e724268ea5cd3679bac06291f46dfbd26b115072;p=thirdparty%2Fcoreutils.git

quotemeta
---

diff --git a/tests/rm/fail-eperm b/tests/rm/fail-eperm
index 7fa9c96f7c..fd9c7e157f 100755
--- a/tests/rm/fail-eperm
+++ b/tests/rm/fail-eperm
@@ -75,7 +75,8 @@ foreach my $dir (@dir_list)
 		. "  got $status, expected 1\n";
 
 	    my $exp = "rm: cannot remove `$dir/$f':";
-	    $line =~ /^$exp/
+	    my $regex = quotemeta $exp;
+	    $line =~ /^$regex/
 	      or die "$ME: unexpected dignostic from `$cmd';\n"
 		. "  got      $line"
 		. "  expected $exp ...\n";