--- AnyEvent/t/handle/04_listen.t	2008/05/25 02:26:49	1.15
+++ AnyEvent/t/handle/04_listen.t	2009/07/24 22:47:04	1.16
@@ -40,25 +40,22 @@
       0
    };
 
-my $clhdl;
-my $wc = tcp_connect localhost => $port, sub {
-   my ($fh) = @_
-      or die "connect: $!";
+my $clhdl; $clhdl = AnyEvent::Handle->new (
+   connect => [localhost => $port],
+   on_eof => sub { $cv->broadcast },
+);
+
+$clhdl->push_write ("TEST\015\012");
+$clhdl->push_read (line => sub {
+   my ($clhdl, $line) = @_;
+
+   if ($line eq 'BLABLABLA') {
+      print "ok 2 - client received response\n";
+   } else {
+      print "not ok 2 - client received bad response\n";
+   }
 
-   $clhdl = AnyEvent::Handle->new (fh => $fh, on_eof => sub { $cv->broadcast });
-
-   $clhdl->push_write ("TEST\015\012");
-   $clhdl->push_read (line => sub {
-      my ($clhdl, $line) = @_;
-
-      if ($line eq 'BLABLABLA') {
-         print "ok 2 - client received response\n";
-      } else {
-         print "not ok 2 - client received bad response\n";
-      }
-
-      $cv->broadcast;
-   });
-};
+   $cv->broadcast;
+});
 
 $cv->wait;