allow specifying the dist in source_to_binary (for DB actions)

[debbugs.git] / bin / debbugs-loadsql

diff --git a/bin/debbugs-loadsql b/bin/debbugs-loadsql
index a1b75de2a0202c47cf19801462e1703f2e090c0e..fe9ce6b0177200f93940143fa34c52eb8f4b4523 100755 (executable)
--- a/bin/debbugs-loadsql
+++ b/bin/debbugs-loadsql
@@ -140,6 +140,7 @@ use if (-d $FindBin::Bin.'/../.git/' && $INC[0] =~ m#^/#),
 
 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);
@@ -437,12 +438,13 @@ FILE:     for my $file (@v) {
                    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,