| … | … | ||
|---|---|---|---|
| 7 | use EV; | 7 | use EV; |
| 8 | 8 | ||
| 9 | my $l = new EV::Loop; | 9 | my $l = new EV::Loop; |
| 10 | 10 | ||
| 11 | for my $i (3..5) { | 11 | for my $i (3..5) { |
| 12 | $l->once (undef, 0, $i * 0.2, sub { | 12 | $l->once (undef, 0, ($i - 3) * 0.5 + 1.0, sub { |
| 13 | print $_[0] == EV::TIMEOUT ? "" : "not ", "ok $i\n"; | 13 | print $_[0] == EV::TIMEOUT ? "" : "not ", "ok $i\n"; |
| 14 | }); | 14 | }); |
| 15 | } | 15 | } |
| 16 | 16 | ||
| 17 | socketpair my $s1, my $s2, AF_UNIX, SOCK_STREAM, PF_UNSPEC; | 17 | socketpair my $s1, my $s2, AF_UNIX, SOCK_STREAM, PF_UNSPEC; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |