… | … | ||
---|---|---|---|
38 | ($port) = Socket::unpack_sockaddr_in getsockname $_[0]; | 38 | ($port) = Socket::unpack_sockaddr_in getsockname $_[0]; |
39 | 39 | ||
40 | 0 | 40 | 0 |
41 | }; | 41 | }; |
42 | 42 | ||
43 | |||
44 | my $clhdl; | 43 | my $clhdl; |
45 | my $wc = tcp_connect localhost => $port, sub { | 44 | my $wc = tcp_connect localhost => $port, sub { |
46 | my ($fh) = @_ | 45 | my ($fh) = @_ |
47 | or die "connect: $!"; | 46 | or die "connect: $!"; |
48 | 47 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |