purge cache every 100 files

diff --git a/bin/debbugs-loadsql b/bin/debbugs-loadsql
index b97432685882e0fc1f9b25c5593d55f19e0fe459..250c23af555ade125231feab24f4e1ea0dd3b98c 100755 (executable)
--- a/bin/debbugs-loadsql
+++ b/bin/debbugs-loadsql
@@ -387,10 +387,10 @@ sub add_debinfo {
     }
     return unless @files;
     my $s = db_connect($options);
-    my %cache;
     $p->target(scalar @files) if $p;
     my $it = natatime 100, @files;
     while (my @v = $it->()) {
+       my %cache;
        my @debinfos;
        for my $file (@v) {
            my $fh = IO::File->new($file,'r') or