quotemeta

diff --git a/tests/rm/fail-eperm b/tests/rm/fail-eperm
index 7fa9c96f7c28b281996221e8707b2b095ac8c7a0..fd9c7e157f9aa7fc546e0a6c759aff5b979501a2 100755 (executable)
--- 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";