diff options
| author | Norton T. Allen <allen@huarp.harvard.edu> | 2001-07-12 07:30:51 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-12 16:37:15 +0000 |
| commit | adf929e5ebcf035664250d3efaa2ae1fc45e42fd (patch) | |
| tree | 5e215f4b509ce2e99acbb440b0f8836ce4d52840 /ext | |
| parent | ecd6d377f426b0484f9eed4a320136e84a8ba076 (diff) | |
| download | perl-adf929e5ebcf035664250d3efaa2ae1fc45e42fd.tar.gz | |
for QNX6
Message-Id: <200107121530.LAA12631@bottesini.harvard.edu>
p4raw-id: //depot/perl@11316
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/IO/lib/IO/t/io_unix.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/IO/lib/IO/t/io_unix.t b/ext/IO/lib/IO/t/io_unix.t index 2f6def0af7..c996e6dc59 100644 --- a/ext/IO/lib/IO/t/io_unix.t +++ b/ext/IO/lib/IO/t/io_unix.t @@ -27,7 +27,7 @@ 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') { + } elsif ($^O =~ m/^(?:qnx|nto)$/ ) { $reason = 'Not implemented'; } undef $reason if $^O eq 'VMS' and $Config{d_socket}; |