4 unless(grep /blib/, @INC) {
6 unshift @INC, '../lib' if -d '../lib';
13 if (!$Config{d_fork}) {
18 if(-d "lib" && -f "TEST") {
19 if ( ($Config{'extensions'} !~ /\bSocket\b/ ||
20 $Config{'extensions'} !~ /\bIO\b/) &&
21 !(($^O eq 'VMS') && $Config{d_socket})) {
28 $PATH = "/tmp/sock-$$";
30 # Test if we can create the file within the tmp directory
31 if (-e $PATH or not open(TEST, ">$PATH")) {
36 unlink($PATH) or die "Can't unlink $PATH: $!";
44 $listen = IO::Socket::UNIX->new(Local=>$PATH, Listen=>0) || die "$!";
49 $sock = $listen->accept();
52 print $sock->getline();
59 unlink($PATH) || warn "Can't unlink $PATH: $!";
63 } elsif(defined $pid) {
65 $sock = IO::Socket::UNIX->new(Peer => $PATH) or die "$!";
69 print $sock->getline();