diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-06 19:05:18 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-06 19:05:18 +0000 |
commit | 1dd9311ab0a647f516752dd7368cf0b3f3ae13a4 (patch) | |
tree | f10954f86e9ad7c4a508f5b92e7c817b6a13f329 /ext/Errno | |
parent | 78ac6fa82a1cb8d01c25b723520e44c170ead798 (diff) | |
download | perl-1dd9311ab0a647f516752dd7368cf0b3f3ae13a4.tar.gz |
ESUCCESS = 0 is not true, but exists.
p4raw-id: //depot/perl@20535
Diffstat (limited to 'ext/Errno')
-rwxr-xr-x | ext/Errno/t/Errno.t | 3 |
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; |