--- AnyEvent/t/handle/03_http_req.t	2008/05/15 14:12:24	1.6
+++ AnyEvent/t/handle/03_http_req.t	2008/05/23 17:50:15	1.9
@@ -1,8 +1,11 @@
 #!/opt/perl/bin/perl
+
 use strict;
+
 use AnyEvent::Impl::Perl;
 use AnyEvent;
 use AnyEvent::Socket;
+use AnyEvent::Handle;
 
 unless ($ENV{PERL_ANYEVENT_NET_TESTS}) {
    print "1..0 # Skip PERL_ANYEVENT_NET_TESTS environment variable not set\n";
@@ -16,11 +19,12 @@
 my $rbytes;
 
 my $hdl;
-my $wo = AnyEvent::Util::tcp_connect ('www.google.com', 80, sub {
-   my ($sock) = @_;
+my $wo = tcp_connect 'www.google.com', 80, sub {
+   my ($fh) = @_;
+
    $hdl =
       AnyEvent::Handle->new (
-         fh => $sock,
+         fh => $fh,
          on_error => sub {
             warn "socket error: $!";
             $cv->broadcast;
@@ -57,8 +61,6 @@
 
    $hdl->push_write ("GET http://www.google.com/ HTTP/1.0\015\012\015\012");
 
-}, sub {
-   warn "error on connect: $!";
-}, 10);
+};
 
 $cv->wait;