diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-22 21:50:38 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-22 21:50:38 +0000 |
| commit | 2272a9a6ecad223a6d9b89c36469298f420c27d0 (patch) | |
| tree | 7457a9b4cb10447800d1bf347016f3c984c59942 /t/op/mkdir.t | |
| parent | 5cbfe51a4640b24f3ff7d726c33869f60176805c (diff) | |
| download | perl-2272a9a6ecad223a6d9b89c36469298f420c27d0.tar.gz | |
Yet another error message.
p4raw-id: //depot/perl@10847
Diffstat (limited to 't/op/mkdir.t')
| -rwxr-xr-x | t/op/mkdir.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/mkdir.t b/t/op/mkdir.t index c5a090ca7d..37da9c34b3 100755 --- a/t/op/mkdir.t +++ b/t/op/mkdir.t @@ -20,6 +20,6 @@ print ($! =~ /cannot move|exist|denied/ ? "ok 3\n" : "# $!\nnot ok 3\n"); print (-d 'blurfl' ? "ok 4\n" : "not ok 4\n"); print (rmdir('blurfl') ? "ok 5\n" : "not ok 5\n"); print (rmdir('blurfl') ? "not ok 6\n" : "ok 6\n"); -print ($! =~ /cannot find|such|exist|not found/i ? "ok 7\n" : "# $!\nnot ok 7\n"); +print ($! =~ /cannot find|such|exist|not found|not a directory/i ? "ok 7\n" : "# $!\nnot ok 7\n"); print (mkdir('blurfl') ? "ok 8\n" : "not ok 8\n"); print (rmdir('blurfl') ? "ok 9\n" : "not ok 9\n"); |