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 |