… | … | ||
---|---|---|---|
25 | $l->once ($s1, EV::WRITE, 0.1, sub { | 25 | $l->once ($s1, EV::WRITE, 0.1, sub { |
26 | print $_[0] & EV::WRITE ? "" : "not ", "ok 2\n"; | 26 | print $_[0] & EV::WRITE ? "" : "not ", "ok 2\n"; |
27 | }); | 27 | }); |
28 | 28 | ||
29 | print "ok 1\n"; | 29 | print "ok 1\n"; |
30 | $l->loop; | 30 | $l->run; |
31 | print "ok 6\n"; | 31 | print "ok 6\n"; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |