--- 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:47:06	1.8
@@ -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,7 +19,7 @@
 my $rbytes;
 
 my $hdl;
-my $wo = AnyEvent::Util::tcp_connect ('www.google.com', 80, sub {
+my $wo = tcp_connect 'www.google.com', 80, sub {
    my ($sock) = @_;
    $hdl =
       AnyEvent::Handle->new (
@@ -57,8 +60,6 @@
 
    $hdl->push_write ("GET http://www.google.com/ HTTP/1.0\015\012\015\012");
 
-}, sub {
-   warn "error on connect: $!";
-}, 10);
+};
 
 $cv->wait;