… | … | ||
---|---|---|---|
27 | 27 | ||
28 | my $handle = | 28 | my $handle = |
29 | AnyEvent::Handle->new ( | 29 | AnyEvent::Handle->new ( |
30 | fh => \*STDIN, | 30 | fh => \*STDIN, |
31 | on_eof => sub { | 31 | on_eof => sub { |
32 | $cv->broadcast; | 32 | $cv->send; |
33 | }, | 33 | }, |
34 | ); | 34 | ); |
35 | 35 | ||
36 | # send some request line | 36 | # send some request line |
37 | $handle->push_write ("getinfo\015\012"); | 37 | $handle->push_write ("getinfo\015\012"); |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |