use vars qw($DEBUG);
+# if we're running out of git, we want to use the git base directory as the
+# first INC directory. If you're not running out of git, or someone has given a
+# non-absolute INC, don't do that.
+use FindBin;
+use if (-d $FindBin::Bin.'/../.git/' && $INC[0] =~ m#^/#),
+ lib => $FindBin::Bin.'/../';
+
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);
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,