… | … | ||
---|---|---|---|
14 | on_error => sub { | 14 | on_error => sub { |
15 | my ($hdl, $fatal, $msg) = @_; | 15 | my ($hdl, $fatal, $msg) = @_; |
16 | warn "got error $msg\n"; | 16 | warn "got error $msg\n"; |
17 | $hdl->destroy; | 17 | $hdl->destroy; |
18 | $cv->send; | 18 | $cv->send; |
19 | ); | 19 | }; |
20 | 20 | ||
21 | # send some request line | 21 | # send some request line |
22 | $hdl->push_write ("getinfo\015\012"); | 22 | $hdl->push_write ("getinfo\015\012"); |
23 | 23 | ||
24 | # read the response line | 24 | # read the response line |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |