--- AnyEvent/t/handle/03_http_req.t 2008/05/23 17:47:06 1.8 +++ AnyEvent/t/handle/03_http_req.t 2008/05/23 17:50:15 1.9 @@ -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;