--- AnyEvent/t/handle/04_listen.t	2008/05/15 13:32:19	1.7
+++ AnyEvent/t/handle/04_listen.t	2008/05/15 13:50:23	1.8
@@ -39,15 +39,8 @@
    $cv->broadcast;
 });
 
-my $clsock =
-   IO::Socket::INET->new (
-      PeerHost => $sock->sockhost,
-      PeerPort => $sock->sockport,
-      Blocking => 0,
-   );
-
 my $clhdl;
-my $wc = AnyEvent::Util::connect ($clsock, sub {
+my $wc = AnyEvent::Util::tcp_connect ($sock->sockhost, $sock->sockport, sub {
    my ($clsock) = @_;
    $clhdl = AnyEvent::Handle->new (fh => $clsock, on_eof => sub { $cv->broadcast });