… | … | ||
---|---|---|---|
12 | my $cn2 = 0; | 12 | my $cn2 = 0; |
13 | my $cn3 = 0; | 13 | my $cn3 = 0; |
14 | 14 | ||
15 | print "ok 1\n"; | 15 | print "ok 1\n"; |
16 | 16 | ||
17 | $grp->feed_limit (5); | 17 | limit $grp 5; |
18 | $grp->feed (sub { | 18 | $grp->feed (sub { |
19 | return if $cn2 >= 10; | 19 | return if $cn2 >= 10; |
20 | $cn2++; | 20 | $cn2++; |
21 | aioreq_pri $cn2; | ||
21 | (add $grp IO::AIO::aio_sleep 0)->cb (sub { | 22 | (add $grp IO::AIO::aio_sleep 0)->cb (sub { |
22 | $cn3++; | 23 | $cn3++; |
23 | }); | 24 | }); |
24 | }); | 25 | }); |
25 | 26 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |