--- 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 20:05:21	1.5
@@ -1,6 +1,8 @@
 #!/opt/perl/bin/perl
+
 use strict;
 use Test::More;
+use AnyEvent::Impl::Perl;
 use AnyEvent;
 use AnyEvent::Socket;
 
@@ -18,7 +20,7 @@
 
 my $ae_sock =
    AnyEvent::Socket->new (
-      PeerAddr => "www.google.de:80",
+      PeerAddr => "www.google.com:80",
       on_eof   => sub { $cv->broadcast },
       on_error => sub {
          my ($ae_sock) = @_;
@@ -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) = @_;