… | … | ||
---|---|---|---|
65 | 65 | ||
66 | aioreq_pri -1; | 66 | aioreq_pri -1; |
67 | ++$n_dirs; | 67 | ++$n_dirs; |
68 | aio_scandir $path, 8, sub { | 68 | aio_scandir $path, 8, sub { |
69 | my ($dirs, $files) = @_ | 69 | my ($dirs, $files) = @_ |
70 | or warn "$path: $!\n"; | 70 | or return warn "$path: $!\n"; |
71 | 71 | ||
72 | printfn "", [$path] unless $opt_nodirs; | 72 | printfn "", [$path] unless $opt_nodirs; |
73 | printfn $path, $files unless $opt_nofiles; | 73 | printfn $path, $files unless $opt_nofiles; |
74 | 74 | ||
75 | $n_files += @$files; | 75 | $n_files += @$files; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |