… | … | ||
---|---|---|---|
94 | print $s == 0 ? "" : "not ", "ok 6 # $s\n"; | 94 | print $s == 0 ? "" : "not ", "ok 6 # $s\n"; |
95 | 95 | ||
96 | kill INT => $$; | 96 | kill INT => $$; |
97 | 97 | ||
98 | $cv = AE::cv; | 98 | $cv = AE::cv; |
99 | $wt = AE::timer 0.01, 0, $cv; | 99 | $wt = AE::timer 0.1, 0, $cv; # maybe OS X needs more time here? |
100 | 100 | ||
101 | $s = 0; | 101 | $s = 0; |
102 | $cv->recv; | 102 | $cv->recv; |
103 | 103 | ||
104 | print $s == 3 ? "" : "not ", "ok 7 # $s\n"; | 104 | print $s == 3 ? "" : "not ", "ok 7 # $s\n"; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |