From 109e6613ae340742f7f42966eba75c15e7dddb94 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 8 Aug 2017 08:05:59 -0700
Subject: [PATCH] purge cache every 100 files

---
 bin/debbugs-loadsql | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bin/debbugs-loadsql b/bin/debbugs-loadsql
index b974326..250c23a 100755
--- 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
-- 
2.39.2