… | … | ||
---|---|---|---|
26 | print "ok 3\n"; | 26 | print "ok 3\n"; |
27 | $cv->send (7, 5); | 27 | $cv->send (7, 5); |
28 | }); | 28 | }); |
29 | 29 | ||
30 | print "ok 2\n"; | 30 | print "ok 2\n"; |
31 | $cv->wait; | 31 | $cv->recv; |
32 | print "ok 8\n"; | 32 | print "ok 8\n"; |
33 | 33 | ||
34 | my @x = $cv->recv; | 34 | my @x = $cv->recv; |
35 | print $x[1] == 5 ? "" : "not ", "ok 9 # $x[1] == 5\n"; | 35 | print $x[1] == 5 ? "" : "not ", "ok 9 # $x[1] == 5\n"; |
36 | } | 36 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |