equal
deleted
inserted
replaced
104 sub { |
104 sub { |
105 -d or return; |
105 -d or return; |
106 opendir(my $dh => $_); |
106 opendir(my $dh => $_); |
107 map { $total++ if not $_ ~~ [qw<. ..>] and length > 8 } readdir $dh; |
107 map { $total++ if not $_ ~~ [qw<. ..>] and length > 8 } readdir $dh; |
108 closedir($dh); |
108 closedir($dh); |
|
109 $File::Find::prune = $_ =~ /^[\d[a-f]{3}$/; # FIXME should be configurable |
109 }, |
110 }, |
110 "$dir/data" |
111 "$dir/data" |
111 ); |
112 ); |
112 verbose("# got $total blocks/files"); |
113 verbose("# got $total blocks/files"); |
113 |
114 |