--- AnyEvent/eg/listen 2008/05/24 17:06:10 1.2 +++ AnyEvent/eg/listen 2008/05/24 23:34:28 1.3 @@ -24,7 +24,7 @@ $hdl->push_write ("Hello!\015\012"); - $hdl->push_read_line (sub { + $hdl->push_read (line => sub { my (undef, $line) = @_; print "Yay, got line: $line\n"; $hdl->push_write ("Bye\015\012");