| … | |
… | |
| 610 | IO::AIO::aioreq_pri 4; |
610 | IO::AIO::aioreq_pri 4; |
| 611 | IO::AIO::aio_scandir $path, 4, sub { |
611 | IO::AIO::aio_scandir $path, 4, sub { |
| 612 | my ($dirs, $nondirs) = @_; |
612 | my ($dirs, $nondirs) = @_; |
| 613 | |
613 | |
| 614 | find_files "$path/$_" |
614 | find_files "$path/$_" |
| 615 | for grep $_ !~ /^(?:CVS|dev)$/, @$dirs; |
615 | for grep $_ !~ /^(?:CVS|dev|\..*)$/, @$dirs; |
| 616 | |
616 | |
| 617 | my $dir = $path; |
617 | my $dir = $path; |
| 618 | substr $dir, 0, 1 + length $PATH, ""; |
618 | substr $dir, 0, 1 + length $PATH, ""; |
| 619 | |
619 | |
| 620 | for my $file (@$nondirs) { |
620 | for my $file (@$nondirs) { |
