Lines Matching refs:PATH
40 $PATH = "sock-$$";
43 if (-e $PATH or not open(TEST, ">$PATH") and $^O ne 'os2') {
44 print "1..0 # Skip: cannot open '$PATH' for write\n";
48 unlink($PATH) or $^O eq 'os2' or die "Can't unlink $PATH: $!";
56 $listen = IO::Socket::UNIX->new(Local=>$PATH, Listen=>0) || die "$!";
73 unlink($PATH) || $^O eq 'os2' || warn "Can't unlink $PATH: $!";
84 $sock = IO::Socket::UNIX->new(Peer => $PATH) or die "$!";