From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 16 May 2005 08:47:28 +0000 (+0000)
Subject: $! might contain "unknown" if strerror(3) says so
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d13bc6520712bc7e86397e420ee3a54995323f54;p=p5sagit%2Fp5-mst-13.2.git

$! might contain "unknown" if strerror(3) says so

p4raw-id: //depot/perl@24475
---

diff --git a/t/op/mkdir.t b/t/op/mkdir.t
index 65a7d3a..6c71e68 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'));