From: Norton T. Allen <allen@huarp.harvard.edu>
Date: Wed, 4 Jul 2001 22:59:00 +0000 (-0400)
Subject: for QNX
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=39990a16710fefc5323bcec385b41b41ef009e98;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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