summaryrefslogtreecommitdiff
path: root/ext/Errno
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2003-08-06 19:05:18 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2003-08-06 19:05:18 +0000
commit1dd9311ab0a647f516752dd7368cf0b3f3ae13a4 (patch)
treef10954f86e9ad7c4a508f5b92e7c817b6a13f329 /ext/Errno
parent78ac6fa82a1cb8d01c25b723520e44c170ead798 (diff)
downloadperl-1dd9311ab0a647f516752dd7368cf0b3f3ae13a4.tar.gz
ESUCCESS = 0 is not true, but exists.
p4raw-id: //depot/perl@20535
Diffstat (limited to 'ext/Errno')
-rwxr-xr-xext/Errno/t/Errno.t3
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/Errno/t/Errno.t b/ext/Errno/t/Errno.t
index 02f5ce2ca6..a879cf23ce 100755
--- a/ext/Errno/t/Errno.t
+++ b/ext/Errno/t/Errno.t
@@ -26,7 +26,8 @@ print "not " unless &{"Errno::$err"} == $num;
print "ok 2\n";
$! = $num;
-print "not " unless $!{$err};
+# Some systems have ESUCCESS 0, that's why exists instead of boolean.
+print "not " unless exists $!{$err};
print "ok 3\n";
$! = 0;