UNIX Domain Sockets are not implemented under QNX.

To: perl5-porters@perl.org
Subject: [ID 19990728.010] Patch:t/lib/io_unix.t _58 QNX
Message-Id: <199907281807.OAA13167@bottesini.harvard.edu>

p4raw-id: //depot/cfgperl@3821

diff --git a/t/lib/io_unix.t b/t/lib/io_unix.t
index e1c89c4..7338861 100644 (file)
--- a/t/lib/io_unix.t
+++ b/t/lib/io_unix.t
@@ -27,6 +27,8 @@ BEGIN {
            eval {IO::Socket::pack_sockaddr_un('/tmp/foo') || 1}
              or $@ !~ /not implemented/ or
                $reason = 'compiled without TCP/IP stack v4';
+       } elsif ($^O eq 'qnx') {
+           $reason = 'Not implemented';
        }
        undef $reason if $^O eq 'VMS' and $Config{d_socket};
        if ($reason) {