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