diff options
| author | Norton T. Allen <allen@huarp.harvard.edu> | 1999-07-28 10:07:16 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-07-28 18:34:50 +0000 |
| commit | bb85248ca4a9bd7b7758b0e862fd693f49db3284 (patch) | |
| tree | 26c3d6aa26f34fb1b10e929c4145771270209365 /t/lib | |
| parent | 8fd73a68c4e3e61c175bff5ea8257b8c0787333e (diff) | |
| download | perl-bb85248ca4a9bd7b7758b0e862fd693f49db3284.tar.gz | |
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
Diffstat (limited to 't/lib')
| -rw-r--r-- | t/lib/io_unix.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/t/lib/io_unix.t b/t/lib/io_unix.t index e1c89c4ebd..7338861fb4 100644 --- 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) { |