[perl #72588] t/op/mkdir.t fails, setting LC_ALL=C does not work
authorSlaven Rezic <slaven@rezic.de>
Sat, 14 Aug 2010 19:28:05 +0000 (14:28 -0500)
committerSteve Peters <steve@fisharerojo.org>
Sat, 14 Aug 2010 19:28:05 +0000 (14:28 -0500)
t/op/mkdir.t

index bd0d1b4..0ad5dac 100644 (file)
@@ -17,11 +17,11 @@ $ENV{LANGUAGE} = 'C'; # GNU locale extension
 
 ok(mkdir('blurfl',0777));
 ok(!mkdir('blurfl',0777));
-like($!, qr/cannot move|exist|denied|unknown/i);
+ok($!{EEXIST} || $! =~ /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|unknown/i);
+ok($!{ENOENT} || $! =~ /cannot find|such|exist|not found|not a directory|unknown/i);
 ok(mkdir('blurfl'));
 ok(rmdir('blurfl'));