| … | … | ||
|---|---|---|---|
| 64 | 64 | ||
| 65 | &scan ("$path$_") for @$dirs; | 65 | &scan ("$path$_") for @$dirs; |
| 66 | }; | 66 | }; |
| 67 | } | 67 | } |
| 68 | 68 | ||
| 69 | IO::AIO::max_outstanding 400; | 69 | IO::AIO::max_outstanding 400; # two fds per directory, so limit accordingly |
| 70 | IO::AIO::min_parallel 20; | 70 | IO::AIO::min_parallel 20; |
| 71 | 71 | ||
| 72 | for my $seed (@ARGV) { | 72 | for my $seed (@ARGV) { |
| 73 | $seed =~ s/\/+$//; | 73 | $seed =~ s/\/+$//; |
| 74 | aio_lstat "$seed/.", sub { | 74 | aio_lstat "$seed/.", sub { |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |