| … | … | ||
|---|---|---|---|
| 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 |