diff options
| author | Norton T. Allen <allen@huarp.harvard.edu> | 2003-03-11 08:37:36 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-11 17:32:23 +0000 |
| commit | 6dea66918087e590d3c83e3571f2b8c019f8f7ce (patch) | |
| tree | cc90250889798e5baebc189a838c4bf9dbb5f4b9 /ext/IO | |
| parent | 88d107940a332197a7297ee2205aa2e32c212c76 (diff) | |
| download | perl-6dea66918087e590d3c83e3571f2b8c019f8f7ce.tar.gz | |
io_sock.t
Message-Id: <200303111837.NAA30438@bottesini.harvard.edu>
p4raw-id: //depot/perl@18918
Diffstat (limited to 'ext/IO')
| -rwxr-xr-x | ext/IO/lib/IO/t/io_sock.t | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/ext/IO/lib/IO/t/io_sock.t b/ext/IO/lib/IO/t/io_sock.t index d91db55eca..33c11ddc8b 100755 --- a/ext/IO/lib/IO/t/io_sock.t +++ b/ext/IO/lib/IO/t/io_sock.t @@ -205,9 +205,9 @@ print "not " unless $server->blocking; print "ok 13\n"; if ( $^O eq 'qnx' ) { - # QNX library bug: Can set non-blocking on socket, but + # QNX4 library bug: Can set non-blocking on socket, but # cannot return that status. - print "ok 14 # skipped\n"; + print "ok 14 # skipped on QNX4\n"; } else { $server->blocking(0); print "not " if $server->blocking; @@ -352,6 +352,12 @@ $sock = IO::Socket::INET->new(Blocking => 0) or print "not "; print "ok 21\n"; -my $status = $sock->blocking; -print "not " unless defined $status && !$status; -print "ok 22\n"; +if ( $^O eq 'qnx' ) { + print "ok 22 # skipped on QNX4\n"; + # QNX4 library bug: Can set non-blocking on socket, but + # cannot return that status. +} else { + my $status = $sock->blocking; + print "not " unless defined $status && !$status; + print "ok 22\n"; +} |