# HG changeset patch
# User Heiko Schlittermann (DTELE) <hs@schlittermann.de>
# Date 1313415284 -7200
# Node ID 4407a98ca072db21cb1ba715784f72e361d3f785
# Parent  0b6b92d1eb65801f9e49815867f86b0a49b5f9a4
speedup the initial estimate

diff -r 0b6b92d1eb65 -r 4407a98ca072 bin/imager.check
--- 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"
     );