summaryrefslogtreecommitdiff
path: root/test.pl
diff options
context:
space:
mode:
Diffstat (limited to 'test.pl')
-rwxr-xr-xtest.pl8
1 files changed, 6 insertions, 2 deletions
diff --git a/test.pl b/test.pl
index bed74e0..25470b2 100755
--- a/test.pl
+++ b/test.pl
@@ -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(\@_) }) : (),
);