handle source maintainer having the archive name properly

diff --git a/Debbugs/Common.pm b/Debbugs/Common.pm
index 732ac2e5bf2f6c02fcaa4b718cb2a7780e3bfc2b..abc98dc6efe6f5d65191ae3f012004c4ff8891f1 100644 (file)
--- a/Debbugs/Common.pm
+++ b/Debbugs/Common.pm
@@ -435,8 +435,11 @@ sub __add_to_hash {
     binmode($fh,':encoding(UTF-8)');
     while (<$fh>) {
        chomp;
-       next unless m/^(\S+)\s+(\S.*\S)\s*$/;
-       my ($key,$value)=($1,$2);
+        my @elements = split /\t/;
+        next unless @elements >=2;
+        # we do this because the source maintainer file contains the
+        # archive location, which we don't care about
+        my ($key,$value)=($elements[0],$elements[-1]);
        $key = lc $key;
        $forward->{$key}= $value;
        if (defined $reverse) {