# non-absolute INC, don't do that.
use FindBin;
use if (-d $FindBin::Bin.'/../.git/' && $INC[0] =~ m#^/#),
- lib => $FindBin::Bin.'/../';
+ lib => $FindBin::Bin.'/../lib';
use Debbugs::Common (qw(checkpid lockpid get_hashname getparsedaddrs),
qw(getbugcomponent make_list getsourcemaintainers),
+ qw(getbuglocation),
qw(walk_bugs),
qw(hash_slice open_compressed_file),);
use Debbugs::Config qw(:config);
verbose => 0,
quiet => 0,
quick => 0,
- service => $config{debbugs_db},
+ service => $config{database},
progress => 0,
);
if (not defined $src_pkgs{$versions[$i][0]}) {
$src_pkgs{$versions[$i][0]} =
$s->resultset('SrcPkg')->
- get_src_pkg_id($versions[$i][0]);
+ get_or_create_src_pkg_id($versions[$i][0]);
}
$sp = $src_pkgs{$versions[$i][0]};
# There's probably something wrong if the source package
not defined $srcver or
not defined $binname or
not defined $binver or
+ not defined $binarch or
$srcname !~ /^$config{package_name_re}$/o or
$binname !~ /^$config{package_name_re}$/o or
$srcver !~ /^$config{package_version_re}$/o or
$binver !~ /^$config{package_version_re}$/o
) {
- print STDERR "malformed debinfo: $file\n";
+ print STDERR "malformed debinfo: $file\n$_\n";
next FILE;
}
push @file_debinfos,