--- AnyEvent/t/handle/02_write.t 2008/05/21 14:37:55 1.5 +++ AnyEvent/t/handle/02_write.t 2008/05/24 23:15:14 1.6 @@ -32,7 +32,7 @@ my $dat = ''; -$rd_ae->push_read_chunk (5132, sub { +$rd_ae->push_read (chunk => 5132, sub { my ($rd_ae, $data) = @_; $dat = substr $data, 0, 2; $dat .= substr $data, -5; @@ -44,7 +44,7 @@ $wr_ae->on_drain; print "ok 5 - fourth write\n"; - $rd_ae->push_read_chunk (1, sub { + $rd_ae->push_read (chunk => 1, sub { print "ok 6 - second read chunk\n"; $cv->broadcast });