diff options
| author | Jim Meyering <jim@meyering.net> | 2002-07-19 22:01:43 +0000 |
|---|---|---|
| committer | Jim Meyering <jim@meyering.net> | 2002-07-19 22:01:43 +0000 |
| commit | e724268ea5cd3679bac06291f46dfbd26b115072 (patch) | |
| tree | c727dd73f6ab38723ce6cd0202188d10231acd3e /tests/rm/fail-eperm | |
| parent | 748de084cc503c0c29023a96985536332eb0070b (diff) | |
| download | coreutils-e724268ea5cd3679bac06291f46dfbd26b115072.tar.xz | |
quotemeta
Diffstat (limited to 'tests/rm/fail-eperm')
| -rwxr-xr-x | tests/rm/fail-eperm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/rm/fail-eperm b/tests/rm/fail-eperm index 7fa9c96f7..fd9c7e157 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"; |