… | |
… | |
538 | # need to check for real directory |
538 | # need to check for real directory |
539 | add $statgrp aio_lstat "$path/$entry", sub { |
539 | add $statgrp aio_lstat "$path/$entry", sub { |
540 | if (-d _) { |
540 | if (-d _) { |
541 | push @dirs, $entry; |
541 | push @dirs, $entry; |
542 | |
542 | |
543 | if (!--$ndirs) { |
543 | unless (--$ndirs) { |
544 | push @nondirs, @$entries; |
544 | push @nondirs, @$entries; |
545 | $statgrp->cancel_subs; |
545 | feed $statgrp; |
546 | } |
546 | } |
547 | } else { |
547 | } else { |
548 | push @nondirs, $entry; |
548 | push @nondirs, $entry; |
549 | } |
549 | } |
550 | } |
550 | } |