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