--- AnyEvent/eg/handle 2008/05/15 08:37:55 1.2 +++ AnyEvent/eg/handle 2008/05/24 23:34:28 1.3 @@ -1,4 +1,5 @@ #!/opt/bin/perl + # This small example script shows how to do non-blocking # reads from a file handle. @@ -11,7 +12,7 @@ on_eof => sub { $cv->broadcast } ); -$ae_fh->push_read_line (sub { +$ae_fh->push_read (line => sub { my ($ae_fh, $line) = @_; print "Got line [$line]\n";