--- AnyEvent/t/handle/04_listen.t	2008/05/17 21:08:05	1.9
+++ AnyEvent/t/handle/04_listen.t	2008/05/21 14:34:03	1.10
@@ -42,7 +42,8 @@
 
 my $clhdl;
 my $wc = AnyEvent::Util::tcp_connect localhost => $port, sub {
-   my ($fh) = @_;
+   my ($fh) = @_
+      or die "connect: $!";
 
    $clhdl = AnyEvent::Handle->new (fh => $fh, on_eof => sub { $cv->broadcast });