… | … | ||
---|---|---|---|
29 | $cv->broadcast; | 29 | $cv->broadcast; |
30 | }); | 30 | }); |
31 | 31 | ||
32 | print "ok 2\n"; | 32 | print "ok 2\n"; |
33 | kill 'INT', $$; | 33 | kill 'INT', $$; |
34 | $cv->wait; | 34 | $cv->recv; |
35 | undef $error; | 35 | undef $error; |
36 | 36 | ||
37 | print "ok 4\n"; | 37 | print "ok 4\n"; |
38 | 38 | ||
39 | undef $sw; | 39 | undef $sw; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |