From d13bc6520712bc7e86397e420ee3a54995323f54 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 16 May 2005 08:47:28 +0000
Subject: $! might contain "unknown" if strerror(3) says so

p4raw-id: //depot/perl@24475
---
 t/op/mkdir.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 't')

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'));
 
-- 
cgit v1.2.1