| 1 | #!/usr/bin/perl | 1 | #!/usr/bin/perl |
|---|---|---|---|
| 2 | 2 | ||
| 3 | use IO::AIO; | 3 | use IO::AIO; |
| 4 | 4 | ||
| 5 | print "1..12\n"; | 5 | print "1..12\n"; |
| 6 | |||
| 7 | IO::AIO::min_parallel 2;#d# | ||
| 6 | 8 | ||
| 7 | my $grp = aio_group sub { | 9 | my $grp = aio_group sub { |
| 8 | print $_[0] == 1 && @_ == 3 ? "" : "not ", "ok 4\n"; | 10 | print $_[0] == 1 && @_ == 3 ? "" : "not ", "ok 4\n"; |
| 9 | }; | 11 | }; |
| 10 | 12 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |