}
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
($srcname,$srcver) = ($binarch,$srcname);
($binarch) = $file =~ /_([^\.]+)\.debinfo/;
}
+ if (not defined $srcver) {
+ print STDERR "malformed debinfo (no srcver): $file\n";
+ next;
+ }
push @debinfos,
[$binname,$binver,$binarch,$srcname,$srcver,$ct_date];
}