chdir 't' if -d 't';
unshift @INC, '../lib' if -d '../lib';
}
+ # ``use IO::Socket'' executes too early below in the os2 block
+ if ($^O eq 'dos') {
+ print "1..0 # Skip: no fork\n";
+ }
}
use Config;
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) {