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