From c279620cbe19471a731059fc38ef96178ea0efb5 Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Thu, 14 Mar 2013 17:03:22 -0700 Subject: [PATCH] cache arch because there aren't very many of them --- bin/debbugs-loadsql-debinfo | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/bin/debbugs-loadsql-debinfo b/bin/debbugs-loadsql-debinfo index 6b3b169f..2d491d97 100755 --- a/bin/debbugs-loadsql-debinfo +++ b/bin/debbugs-loadsql-debinfo @@ -117,6 +117,7 @@ my $s = Debbugs::DB->connect('dbi:Pg:service='.$options{service}) or my @files = @ARGV; +my %arch; for my $file (@files) { my $fh = IO::File->new($file,'r') or die "Unable to open $file for reading: $!"; @@ -135,7 +136,13 @@ for my $file (@files) { my $sp = $s->resultset('SrcPkg')->find_or_create({pkg => $srcname}); my $sv = $s->resultset('SrcVer')->find_or_create({src_pkg_id=>$sp->id(), ver => $srcver}); - my $arch = $s->resultset('Arch')->find_or_create({arch => $binarch}); + my $arch; + if (defined $arch{$binarch}) { + $arch = $arch{$binarch}; + } else { + $arch = $s->resultset('Arch')->find_or_create({arch => $binarch}); + $arch{$binarch} = $arch; + } my $bp = $s->resultset('BinPkg')->find_or_create({pkg => $binname}); $s->resultset('BinVer')->find_or_create({bin_pkg_id => $bp->id(), src_ver_id => $sv->id(), -- 2.39.5