… | |
… | |
40 | }; |
40 | }; |
41 | |
41 | |
42 | |
42 | |
43 | my $clhdl; |
43 | my $clhdl; |
44 | my $wc = AnyEvent::Util::tcp_connect localhost => $port, sub { |
44 | my $wc = AnyEvent::Util::tcp_connect localhost => $port, sub { |
45 | my ($fh) = @_; |
45 | my ($fh) = @_ |
|
|
46 | or die "connect: $!"; |
46 | |
47 | |
47 | $clhdl = AnyEvent::Handle->new (fh => $fh, on_eof => sub { $cv->broadcast }); |
48 | $clhdl = AnyEvent::Handle->new (fh => $fh, on_eof => sub { $cv->broadcast }); |
48 | |
49 | |
49 | $clhdl->push_write ("TEST\015\012"); |
50 | $clhdl->push_write ("TEST\015\012"); |
50 | $clhdl->push_read_line (sub { |
51 | $clhdl->push_read_line (sub { |