| 1 | $|=1; | 1 | $|=1; |
|---|---|---|---|
| 2 | BEGIN { print "1..4\n" } | 2 | BEGIN { print "1..5\n" } |
| 3 | 3 | ||
| 4 | use AnyEvent; | 4 | use AnyEvent; |
| 5 | 5 | ||
| 6 | print "ok 1\n"; | 6 | print "ok 1\n"; |
| 7 | 7 | ||
| … | … | ||
| 24 | $cv->broadcast; | 24 | $cv->broadcast; |
| 25 | }); | 25 | }); |
| 26 | 26 | ||
| 27 | $cv->wait; | 27 | $cv->wait; |
| 28 | 28 | ||
| 29 | fork || exit 7; | ||
| 30 | |||
| 31 | my $cv2 = AnyEvent->condvar; | ||
| 32 | |||
| 33 | my $w2 = AnyEvent->child (pid => 0, cb => sub { | ||
| 34 | print 7 == ($? >> 8) ? "" : "not ", "ok 4\n"; | ||
| 35 | $cv2->broadcast; | ||
| 36 | }); | ||
| 37 | |||
| 38 | $cv2->wait; | ||
| 39 | |||
| 29 | print "ok 4\n"; | 40 | print "ok 5\n"; |
| 30 | 41 | ||
| 31 | 42 | ||
| 32 | 43 | ||
| 33 | 44 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |