… | … | ||
---|---|---|---|
7 | my $cv = AnyEvent->condvar; | 7 | my $cv = AnyEvent->condvar; |
8 | 8 | ||
9 | my $ae_fh = | 9 | my $ae_fh = |
10 | AnyEvent::Handle->new ( | 10 | AnyEvent::Handle->new ( |
11 | fh => \*STDIN, | 11 | fh => \*STDIN, |
12 | on_eof => sub { $cv->broadcast } | 12 | on_error => sub { $cv->broadcast } |
13 | ); | 13 | ); |
14 | 14 | ||
15 | $ae_fh->push_read (line => sub { | 15 | $ae_fh->push_read (line => sub { |
16 | my ($ae_fh, $line) = @_; | 16 | my ($ae_fh, $line) = @_; |
17 | print "Got line [$line]\n"; | 17 | print "Got line [$line]\n"; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |