5 unless(grep /blib/, @INC) {
7 @INC = '../lib' if -d '../lib';
14 if(-d "lib" && -f "TEST") {
15 if ( ($Config{'extensions'} !~ /\bSocket\b/ ||
16 $Config{'extensions'} !~ /\bIO\b/) &&
17 !(($^O eq 'VMS') && $Config{d_socket})) {
24 $PATH = "/tmp/sock-$$";
26 # Test if we can create the file within the tmp directory
27 if (-e $PATH or not open(TEST, ">$PATH")) {
32 unlink($PATH) or die "Can't unlink $PATH: $!";
40 $listen = IO::Socket::UNIX->new(Local=>$PATH, Listen=>0) || die "$!";
45 $sock = $listen->accept();
48 print $sock->getline();
55 unlink($PATH) || warn "Can't unlink $PATH: $!";
59 } elsif(defined $pid) {
61 $sock = IO::Socket::UNIX->new(Peer => $PATH) or die "$!";
65 print $sock->getline();