From 39990a16710fefc5323bcec385b41b41ef009e98 Mon Sep 17 00:00:00 2001 From: "Norton T. Allen" Date: Wed, 4 Jul 2001 18:59:00 -0400 Subject: [PATCH] for QNX Message-Id: <200107050259.WAA06843@bottesini.harvard.edu> p4raw-id: //depot/perl@11158 --- ext/IO/lib/IO/t/io_sock.t | 12 +++++++++--- 1 file 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 1c9bcc7..6b241c5 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 -- 2.7.4