--- AnyEvent/t/handle/04_listen.t	2008/05/24 23:15:14	1.14
+++ AnyEvent/t/handle/04_listen.t	2008/05/25 02:26:49	1.15
@@ -35,7 +35,7 @@
          $hdl->push_write ("BLABLABLA\015\012");
       });
    }, sub {
-      ($port) = Socket::unpack_sockaddr_in getsockname $_[0];
+      $port = $_[2];
 
       0
    };