--- AnyEvent/t/handle/04_listen.t	2008/05/21 14:37:55	1.11
+++ AnyEvent/t/handle/04_listen.t	2008/05/23 17:47:06	1.12
@@ -4,7 +4,7 @@
 
 use AnyEvent::Impl::Perl;
 use AnyEvent::Handle;
-use AnyEvent::Util;
+use AnyEvent::Socket;
 use AnyEvent;
 
 my $lbytes;
@@ -17,7 +17,7 @@
 my $hdl;
 my $port;
 
-my $w = AnyEvent::Util::tcp_server undef, undef,
+my $w = tcp_server undef, undef,
    sub {
       my ($fh, $host, $port) = @_;
 
@@ -42,7 +42,7 @@
 
 
 my $clhdl;
-my $wc = AnyEvent::Util::tcp_connect localhost => $port, sub {
+my $wc = tcp_connect localhost => $port, sub {
    my ($fh) = @_
       or die "connect: $!";