--- AnyEvent/t/handle/03_http_req.t 2008/05/23 17:47:06 1.8 +++ AnyEvent/t/handle/03_http_req.t 2008/05/24 23:15:14 1.10 @@ -20,10 +20,11 @@ my $hdl; my $wo = tcp_connect 'www.google.com', 80, sub { - my ($sock) = @_; + my ($fh) = @_; + $hdl = AnyEvent::Handle->new ( - fh => $sock, + fh => $fh, on_error => sub { warn "socket error: $!"; $cv->broadcast; @@ -41,7 +42,7 @@ } ); - $hdl->push_read_chunk (10, sub { + $hdl->push_read (chunk => 10, sub { my ($hdl, $data) = @_; unless (substr ($data, 0, 4) eq 'HTTP') {