TODO for QNX6

Message-Id: <200203251836.NAA01517@bottesini.harvard.edu>

p4raw-id: //depot/perl@15492

diff --git a/ext/Socket/socketpair.t b/ext/Socket/socketpair.t
index 242e61c..937ffa5 100644 (file)
--- a/ext/Socket/socketpair.t
+++ b/ext/Socket/socketpair.t
@@ -156,7 +156,7 @@ ok (close RIGHT, "close right");
 
 SKIP: {
   skip "No usable SOCK_DGRAM for socketpair", 24 if ($^O =~ /^(MSWin32|os2)\z/);
-
+  local $TODO = "socketpair not supported on $^O" if $^O eq 'nto';
 
 ok (socketpair (LEFT, RIGHT, AF_UNIX, SOCK_DGRAM, PF_UNSPEC),
     "socketpair (LEFT, RIGHT, AF_UNIX, SOCK_DGRAM, PF_UNSPEC)")