| … | … | ||
|---|---|---|---|
| 33 | } | 33 | } |
| 34 | 34 | ||
| 35 | $hdl->push_write ("BLABLABLA\015\012"); | 35 | $hdl->push_write ("BLABLABLA\015\012"); |
| 36 | }); | 36 | }); |
| 37 | }, sub { | 37 | }, sub { |
| 38 | ($port) = Socket::unpack_sockaddr_in getsockname $_[0]; | 38 | $port = $_[2]; |
| 39 | 39 | ||
| 40 | 0 | 40 | 0 |
| 41 | }; | 41 | }; |
| 42 | 42 | ||
| 43 | my $clhdl; | 43 | my $clhdl; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |