… | … | ||
---|---|---|---|
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 |