diff options
Diffstat (limited to 'test.pl')
-rwxr-xr-x | test.pl | 8 |
1 files changed, 6 insertions, 2 deletions
@@ -117,11 +117,15 @@ sub t_double { my $done = AnyEvent->condvar; $done->begin; $done->begin; - $sa->link(AnyEvent::Handle->new(fh => $socka), sync => $f&1, + $sa->link( + handle => AnyEvent::Handle->new(fh => $socka), + sync => $f&1, on_ready => sub { $done->end }, $DEBUG ? (on_write => sub { note 'A: ',Data::Dumper::Dumper(\@_) }) : (), ); - $sb->link(AnyEvent::Handle->new(fh => $sockb), sync => $f&2, + $sb->link( + handle => AnyEvent::Handle->new(fh => $sockb), + sync => $f&2, on_ready => sub { $done->end }, $DEBUG ? (on_write => sub { note 'B: ',Data::Dumper::Dumper(\@_) }) : (), ); |