| … | … | ||
|---|---|---|---|
| 51 | 51 | ||
| 52 | printfn "", [$path] unless $opt_nodirs; | 52 | printfn "", [$path] unless $opt_nodirs; |
| 53 | printfn $path, $files unless $opt_nofiles; | 53 | printfn $path, $files unless $opt_nofiles; |
| 54 | 54 | ||
| 55 | if ($opt_stat) { | 55 | if ($opt_stat) { |
| 56 | aio_wd $path, sub { | ||
| 57 | my $wd = shift; | ||
| 58 | |||
| 56 | aio_lstat "$path$_" for @$files; | 59 | aio_lstat [$wd, $_] for @$files; |
| 60 | }; | ||
| 57 | } | 61 | } |
| 58 | 62 | ||
| 59 | &scan ("$path$_") for @$dirs; | 63 | &scan ("$path$_") for @$dirs; |
| 60 | }; | 64 | }; |
| 61 | } | 65 | } |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |