changeset 53 | 4407a98ca072 |
parent 48 | f43084e0ef0a |
child 54 | 2d3d0e2e81e7 |
--- a/bin/imager.check Mon Aug 01 13:02:09 2011 +0200 +++ b/bin/imager.check Mon Aug 15 15:34:44 2011 +0200 @@ -106,6 +106,7 @@ opendir(my $dh => $_); map { $total++ if not $_ ~~ [qw<. ..>] and length > 8 } readdir $dh; closedir($dh); + $File::Find::prune = $_ =~ /^[\d[a-f]{3}$/; # FIXME should be configurable }, "$dir/data" );