| … | |
… | |
| 53 | my $flen = 0; |
53 | my $flen = 0; |
| 54 | my $slen = 0; |
54 | my $slen = 0; |
| 55 | for (sort readdir DIR) { |
55 | for (sort readdir DIR) { |
| 56 | next if /$ignore/; |
56 | next if /$ignore/; |
| 57 | stat "$self->{path}$_"; |
57 | stat "$self->{path}$_"; |
| 58 | next unless -r _; |
|
|
| 59 | if (-d _) { |
58 | if (-d _) { |
|
|
59 | next unless 0555 == ((stat _)[2] & 0555); |
| 60 | $dlen = length $_ if length $_ > $dlen; |
60 | $dlen = length $_ if length $_ > $dlen; |
| 61 | push @{$data->{d}}, $_; |
61 | push @{$data->{d}}, $_; |
| 62 | } else { |
62 | } else { |
|
|
63 | next unless 0444 == ((stat _)[2] & 0444); |
| 63 | my $s = -s _; |
64 | my $s = -s _; |
| 64 | $flen = length $_ if length $_ > $dlen; |
65 | $flen = length $_ if length $_ > $dlen; |
| 65 | $slen = length $s if length $s > $dlen; |
66 | $slen = length $s if length $s > $dlen; |
| 66 | push @{$data->{f}}, [$_, $s]; |
67 | push @{$data->{f}}, [$_, $s]; |
| 67 | } |
68 | } |
