summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-05-16 08:47:28 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-05-16 08:47:28 +0000
commitd13bc6520712bc7e86397e420ee3a54995323f54 (patch)
treec09d68d0923a04844bcd378b54cf12fa7494a284 /t
parent993164ab7bc2b8526620ee422e7ba8a504b6da4d (diff)
downloadperl-d13bc6520712bc7e86397e420ee3a54995323f54.tar.gz
$! might contain "unknown" if strerror(3) says so
p4raw-id: //depot/perl@24475
Diffstat (limited to 't')
-rwxr-xr-xt/op/mkdir.t4
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/mkdir.t b/t/op/mkdir.t
index 65a7d3a4ed..6c71e68313 100755
--- a/t/op/mkdir.t
+++ b/t/op/mkdir.t
@@ -17,11 +17,11 @@ $ENV{LANGUAGE} = 'C'; # GNU locale extension
ok(mkdir('blurfl',0777));
ok(!mkdir('blurfl',0777));
-like($!, qr/cannot move|exist|denied/);
+like($!, qr/cannot move|exist|denied|unknown/i);
ok(-d 'blurfl');
ok(rmdir('blurfl'));
ok(!rmdir('blurfl'));
-like($!, qr/cannot find|such|exist|not found|not a directory/i);
+like($!, qr/cannot find|such|exist|not found|not a directory|unknown/i);
ok(mkdir('blurfl'));
ok(rmdir('blurfl'));