--- AnyEvent/t/handle/01_readline.t 2008/05/24 23:10:18 1.6 +++ AnyEvent/t/handle/01_readline.t 2008/05/24 23:15:14 1.7 @@ -19,13 +19,13 @@ my $concat; - $rd_ae->push_read_line (sub { + $rd_ae->push_read (line => sub { is ($_[1], "A", 'A line was read correctly'); my $cb; $cb = sub { $concat .= $_[1]; - $_[0]->push_read_line ($cb); + $_[0]->push_read (line => $cb); }; - $_[0]->push_read_line ($cb); + $_[0]->push_read (line => $cb); }); syswrite $wr, "A\nBC\nDEF\nG\n" . ("X" x 113) . "\n";