| … | … | ||
|---|---|---|---|
| 17 | 17 | ||
| 18 | my $rd_ae = AnyEvent::Handle->new ( | 18 | my $rd_ae = AnyEvent::Handle->new ( |
| 19 | fh => $rd, | 19 | fh => $rd, |
| 20 | on_error => sub { | 20 | on_error => sub { |
| 21 | ok ($! == &Errno::EPIPE); | 21 | ok ($! == &Errno::EPIPE); |
| 22 | $cv->broadcast; | ||
| 22 | }, | 23 | }, |
| 23 | on_eof => sub { $cv->broadcast }, | 24 | on_eof => sub { |
| 25 | ok (0, "got eof"); | ||
| 26 | }, | ||
| 24 | ); | 27 | ); |
| 25 | 28 | ||
| 26 | my $concat; | 29 | my $concat; |
| 27 | 30 | ||
| 28 | $rd_ae->push_read (line => sub { | 31 | $rd_ae->push_read (line => sub { |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |