bin/imager.check
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"
     );