… | … | ||
---|---|---|---|
64 | 64 | ||
65 | { | 65 | { |
66 | my $cv = AnyEvent->condvar; | 66 | my $cv = AnyEvent->condvar; |
67 | 67 | ||
68 | print "ok 19\n"; | 68 | print "ok 19\n"; |
69 | my $t = AnyEvent->timer (after => 0, cb => sub { &$cv }); | 69 | my $t = AnyEvent->timer (after => 0, cb => $cv); |
70 | 70 | ||
71 | print "ok 20\n"; | 71 | print "ok 20\n"; |
72 | $cv->recv; | 72 | $cv->recv; |
73 | print "ok 21\n"; | 73 | print "ok 21\n"; |
74 | } | 74 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |