Change 11158 by jhi@alpha on 2001/07/05 03:45:19
Subject: [PATCH ext/IO/lib/IO/t/io_sock.t] for QNX
From: Norton Allen <[EMAIL PROTECTED]>
Message-Id: <[EMAIL PROTECTED]>
Date: Wed, 4 Jul 2001 22:59:00 -0400 (edt)
Affected files ...
... //depot/perl/ext/IO/lib/IO/t/io_sock.t#3 edit
Differences ...
==== //depot/perl/ext/IO/lib/IO/t/io_sock.t#3 (xtext) ====
Index: perl/ext/IO/lib/IO/t/io_sock.t
--- perl/ext/IO/lib/IO/t/io_sock.t.~1~ Wed Jul 4 22:00:05 2001
+++ perl/ext/IO/lib/IO/t/io_sock.t Wed Jul 4 22:00:05 2001
@@ -205,9 +205,15 @@
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
End of Patch.
