ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent/t/handle/04_listen.t
(Generate patch)

Comparing AnyEvent/t/handle/04_listen.t (file contents):
Revision 1.9 by root, Sat May 17 21:08:05 2008 UTC vs.
Revision 1.10 by root, Wed May 21 14:34:03 2008 UTC

… …
40 }; 40 };
41 41
42 42
43my $clhdl; 43my $clhdl;
44my $wc = AnyEvent::Util::tcp_connect localhost => $port, sub { 44my $wc = AnyEvent::Util::tcp_connect localhost => $port, sub {
45 my ($fh) = @_; 45 my ($fh) = @_
46 or die "connect: $!";
46 47
47 $clhdl = AnyEvent::Handle->new (fh => $fh, on_eof => sub { $cv->broadcast }); 48 $clhdl = AnyEvent::Handle->new (fh => $fh, on_eof => sub { $cv->broadcast });
48 49
49 $clhdl->push_write ("TEST\015\012"); 50 $clhdl->push_write ("TEST\015\012");
50 $clhdl->push_read_line (sub { 51 $clhdl->push_read_line (sub {

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines