From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 6 Aug 2003 19:05:18 +0000 (+0000)
Subject: ESUCCESS = 0 is not true, but exists.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1dd9311ab0a647f516752dd7368cf0b3f3ae13a4;p=p5sagit%2Fp5-mst-13.2.git

ESUCCESS = 0 is not true, but exists.

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

diff --git a/ext/Errno/t/Errno.t b/ext/Errno/t/Errno.t
index 02f5ce2..a879cf2 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;