--- AnyEvent/t/handle/03_http_req.t	2008/04/27 19:15:43	1.2
+++ AnyEvent/t/handle/03_http_req.t	2008/04/27 19:41:31	1.4
@@ -1,6 +1,8 @@
 #!/opt/perl/bin/perl
+
 use strict;
 use Test::More;
+use AnyEvent::Impl::Perl;
 use AnyEvent;
 use AnyEvent::Socket;
 
@@ -27,7 +29,7 @@
       },
       on_connect => sub {
          my ($ae_sock, $error) = @_;
-         if ($error) { diag ("connect error: $!"); return }
+         if ($error) { diag ("connect error: $!"); $cv->broadcast; return }
 
          $ae_sock->read (10, sub {
             my ($ae_sock, $data) = @_;