Integrate mainline - a few Devel::Peak fails.

[perl5.git] / ext / IO / lib / IO / t / io_sock.t

diff --git a/ext/IO/lib/IO/t/io_sock.t b/ext/IO/lib/IO/t/io_sock.t
index 1c9bcc7..c4bfcc4 100755 (executable)
--- a/ext/IO/lib/IO/t/io_sock.t
+++ b/ext/IO/lib/IO/t/io_sock.t
@@ -21,7 +21,6 @@ BEGIN {
        elsif ($Config{'extensions'} !~ /\bIO\b/) {
            $reason = 'IO extension unavailable';
        }
-       undef $reason if $^O eq 'VMS' and $Config{d_socket};
        if ($reason) {
            print "1..0 # Skip: $reason\n";
            exit 0;
@@ -205,9 +204,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