X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=bin%2Fdebbugs-loadsql;h=c28d66e99a7cf3f86cbc6ceb5a0682748825b321;hb=210f625e6e6b4cbe1065f35d9eb0bdc73563969c;hp=6401fa8caa94f13e67e7cec8f865e7ba0dca4d12;hpb=31ca6da8af32321837265482c92ab9cc15014d04;p=debbugs.git

diff --git a/bin/debbugs-loadsql b/bin/debbugs-loadsql
index 6401fa8..c28d66e 100755
--- a/bin/debbugs-loadsql
+++ b/bin/debbugs-loadsql
@@ -136,10 +136,11 @@ use vars qw($DEBUG);
 # 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);
@@ -165,7 +166,7 @@ my %options =
      verbose         => 0,
      quiet           => 0,
      quick           => 0,
-     service         => $config{debbugs_db},
+     service         => $config{database},
      progress        => 0,
     );
 
@@ -361,7 +362,7 @@ sub add_versions {
             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
@@ -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,