BEGIN {
unless(grep /blib/, @INC) {
chdir 't' if -d 't';
- unshift @INC, '../lib' if -d '../lib';
+ @INC = '../lib';
}
}
$reason = 'IO extension unavailable';
}
elsif ($^O eq 'os2') {
- use IO::Socket;
+ require IO::Socket;
eval {IO::Socket::pack_sockaddr_un('/tmp/foo') || 1}
or $@ !~ /not implemented/ or