for QNX

Message-Id: <200107050259.WAA06843@bottesini.harvard.edu>

p4raw-id: //depot/perl@11158

diff --git a/ext/IO/lib/IO/t/io_sock.t b/ext/IO/lib/IO/t/io_sock.t
index 1c9bcc7..6b241c5 100755 (executable)
--- 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