| … | … | ||
|---|---|---|---|
| 57 | IO::AIO::min_parallel 32; | 57 | IO::AIO::min_parallel 32; |
| 58 | 58 | ||
| 59 | for my $seed (@ARGV) { | 59 | for my $seed (@ARGV) { |
| 60 | $seed =~ s/\/+$//; | 60 | $seed =~ s/\/+$//; |
| 61 | aio_lstat "$seed/.", sub { | 61 | aio_lstat "$seed/.", sub { |
| 62 | if ($_[0]) { | ||
| 63 | print STDERR "$seed: $!\n"; | ||
| 62 | if (-d _) { | 64 | } elsif (-d _) { |
| 63 | scan $seed; | 65 | scan $seed; |
| 64 | } else { | 66 | } else { |
| 65 | printfn "", $seed, "/"; | 67 | printfn "", $seed, "/"; |
| 66 | } | 68 | } |
| 67 | }; | 69 | }; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |