diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-01-13 16:50:17 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-01-13 16:50:17 +0000 |
| commit | 61ae2fbf8676dafa05a9a9a710fde421f30a2071 (patch) | |
| tree | 4f497a4eee07a49f48be8badf49ad54f068f11f8 /t/op/mkdir.t | |
| parent | b8f0c030659550e4d527ee8f11cd2f012f1bd1b0 (diff) | |
| download | perl-61ae2fbf8676dafa05a9a9a710fde421f30a2071.tar.gz | |
Atari MiNT port by Guido Flohr <gufl0000@stud.uni-sb.de>
(the diffs were based on 5.004_02). Tested by Guido
and Frank Naumann <fnaumann@prinz-atm.CS.Uni-Magdeburg.De>.
p4raw-id: //depot/cfgperl@2594
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 5ba0a0f18d..acf16c14a4 100755 --- a/t/op/mkdir.t +++ b/t/op/mkdir.t @@ -15,4 +15,4 @@ print ($! =~ /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 ($! =~ /such|exist/ ? "ok 7\n" : "not ok 7\n"); +print ($! =~ /such|exist|not found/i ? "ok 7\n" : "not ok 7\n"); |