4 unless(grep /blib/, @INC) {
6 unshift @INC, '../lib' if -d '../lib';
13 if(-d "lib" && -f "TEST") {
14 if (!$Config{'d_fork'} ||
15 (($Config{'extensions'} !~ /\bSocket\b/ ||
16 $Config{'extensions'} !~ /\bIO\b/) &&
17 !(($^O eq 'VMS') && $Config{d_socket}))) {
30 require IO::Socket::INET;
31 @ISA=qw(IO::Socket::INET);
33 use Socket qw(inet_aton inet_ntoa unpack_sockaddr_in);
37 my($sock,$addr_str, $multi) = @_;
38 #print "_get_addr($sock, $addr_str, $multi)\n";
40 print "not " unless $multi;
44 # private IP-addresses which I hope does not work anywhere :-)
45 inet_aton("10.250.230.10"),
46 inet_aton("10.250.230.12"),
47 inet_aton("127.0.0.1") # loopback
55 my($port, $addr) = unpack_sockaddr_in($_[0]);
56 $addr = inet_ntoa($addr);
57 #print "connect($self, $port, $addr)\n";
58 if($addr eq "10.250.230.10") {
62 if($addr eq "10.250.230.12") {
67 $self->SUPER::connect(@_);
76 $listen = IO::Socket::INET->new(Listen => 2,
83 $port = $listen->sockport;
87 $sock = $listen->accept() or die "$!";
90 print $sock->getline();
99 } elsif(defined $pid) {
101 $sock = Multi->new(PeerPort => $port,
103 PeerAddr => 'localhost',
108 print $sock "ok 6\n";
109 sleep(1); # race condition
110 print $sock->getline();