| … | … | ||
|---|---|---|---|
| 27 | diag "error: $!"; | 27 | diag "error: $!"; |
| 28 | $cv->broadcast | 28 | $cv->broadcast |
| 29 | }, | 29 | }, |
| 30 | on_connect => sub { | 30 | on_connect => sub { |
| 31 | my ($ae_sock, $error) = @_; | 31 | my ($ae_sock, $error) = @_; |
| 32 | if ($error) { diag ("connect error: $!"); return } | 32 | if ($error) { diag ("connect error: $!"); $cv->broadcast; return } |
| 33 | 33 | ||
| 34 | $ae_sock->read (10, sub { | 34 | $ae_sock->read (10, sub { |
| 35 | my ($ae_sock, $data) = @_; | 35 | my ($ae_sock, $data) = @_; |
| 36 | $fbytes = $data; | 36 | $fbytes = $data; |
| 37 | 37 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |