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) {