diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-16 08:47:28 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-16 08:47:28 +0000 |
commit | d13bc6520712bc7e86397e420ee3a54995323f54 (patch) | |
tree | c09d68d0923a04844bcd378b54cf12fa7494a284 /t | |
parent | 993164ab7bc2b8526620ee422e7ba8a504b6da4d (diff) | |
download | perl-d13bc6520712bc7e86397e420ee3a54995323f54.tar.gz |
$! might contain "unknown" if strerror(3) says so
p4raw-id: //depot/perl@24475
Diffstat (limited to 't')
-rwxr-xr-x | t/op/mkdir.t | 4 |
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')); |