diff options
| author | Norton T. Allen <allen@huarp.harvard.edu> | 2001-07-04 18:59:00 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-05 03:45:19 +0000 |
| commit | 39990a16710fefc5323bcec385b41b41ef009e98 (patch) | |
| tree | bc2ba3d2efe05939ba60658a0b14d67c516ab07a /ext/IO | |
| parent | 496a33f5e109b192b433ac8c253a6c9a69d98c55 (diff) | |
| download | perl-39990a16710fefc5323bcec385b41b41ef009e98.tar.gz | |
for QNX
Message-Id: <200107050259.WAA06843@bottesini.harvard.edu>
p4raw-id: //depot/perl@11158
Diffstat (limited to 'ext/IO')
| -rwxr-xr-x | ext/IO/lib/IO/t/io_sock.t | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/ext/IO/lib/IO/t/io_sock.t b/ext/IO/lib/IO/t/io_sock.t index 1c9bcc7a69..6b241c5dfe 100755 --- a/ext/IO/lib/IO/t/io_sock.t +++ b/ext/IO/lib/IO/t/io_sock.t @@ -205,9 +205,15 @@ if ($^O eq 'mpeix') { print "not " unless $server->blocking; print "ok 13\n"; -$server->blocking(0); -print "not " if $server->blocking; -print "ok 14\n"; +if ( $^O eq 'qnx' ) { + # QNX library bug: Can set non-blocking on socket, but + # cannot return that status. + print "ok 14 # skipped\n"; +} else { + $server->blocking(0); + print "not " if $server->blocking; + print "ok 14\n"; +} ### TEST 15 ### Set up some data to be transfered between the server and |