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