X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FCommon.pm;h=fdf67923efc9721db2ae52da71044af328b0e3d3;hb=refs%2Fheads%2Fdon%2Freply_links;hp=abc98dc6efe6f5d65191ae3f012004c4ff8891f1;hpb=593feb86562b711efd71e4d03239e188ddeea051;p=debbugs.git diff --git a/Debbugs/Common.pm b/Debbugs/Common.pm index abc98dc..fdf6792 100644 --- a/Debbugs/Common.pm +++ b/Debbugs/Common.pm @@ -435,11 +435,8 @@ sub __add_to_hash { binmode($fh,':encoding(UTF-8)'); while (<$fh>) { chomp; - 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]); + next unless m/^(\S+)\s+(\S.*\S)\s*$/; + my ($key,$value)=($1,$2); $key = lc $key; $forward->{$key}= $value; if (defined $reverse) {