4 unless(grep /blib/, @INC) {
13 if(-d "lib" && -f "TEST") {
15 if (! $Config{'d_fork'}) {
18 elsif ($Config{'extensions'} !~ /\bSocket\b/) {
19 $reason = 'Socket extension unavailable';
21 elsif ($Config{'extensions'} !~ /\bIO\b/) {
22 $reason = 'IO extension unavailable';
25 print "1..0 # Skip: $reason\n";
37 require IO::Socket::INET;
38 @ISA=qw(IO::Socket::INET);
40 use Socket qw(inet_aton inet_ntoa unpack_sockaddr_in);
44 my($sock,$addr_str, $multi) = @_;
45 #print "_get_addr($sock, $addr_str, $multi)\n";
47 print "not " unless $multi;
51 # private IP-addresses which I hope does not work anywhere :-)
52 inet_aton("10.250.230.10"),
53 inet_aton("10.250.230.12"),
54 inet_aton("127.0.0.1") # loopback
62 my($port, $addr) = unpack_sockaddr_in($_[0]);
63 $addr = inet_ntoa($addr);
64 #print "connect($self, $port, $addr)\n";
65 if($addr eq "10.250.230.10") {
69 if($addr eq "10.250.230.12") {
74 $self->SUPER::connect(@_);
83 $listen = IO::Socket::INET->new(Listen => 2,
90 $port = $listen->sockport;
94 $sock = $listen->accept() or die "$!";
97 print $sock->getline();
106 } elsif(defined $pid) {
108 $sock = Multi->new(PeerPort => $port,
110 PeerAddr => 'localhost',
115 print $sock "ok 6\n";
116 sleep(1); # race condition
117 print $sock->getline();