System configuration directory to use; if not set, defaults to the
postgresql default. [Operates by setting PGSYSCONFDIR]
-=item B<--debug, -d
+=item B<--debug, -d>
Debug verbosity.
my @files = @ARGV;
+my %arch;
for my $file (@files) {
my $fh = IO::File->new($file,'r') or
die "Unable to open $file for reading: $!";
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(),