4 unless(grep /blib/, @INC) {
6 @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 print "ok 3\n" if $addr eq "10.250.230.10";
59 print "ok 4\n" if $addr eq "10.250.230.12";
61 $self->SUPER::connect(@_);
70 $listen = IO::Socket::INET->new(Listen => 2,
77 $port = $listen->sockport;
81 $sock = $listen->accept() or die "$!";
84 print $sock->getline();
93 } elsif(defined $pid) {
95 $sock = Multi->new(PeerPort => $port,
97 PeerAddr => 'localhost',
102 print $sock "ok 6\n";
103 sleep(1); # race condition
104 print $sock->getline();