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