From 593feb86562b711efd71e4d03239e188ddeea051 Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Wed, 20 Nov 2013 21:34:34 -0800 Subject: [PATCH 1/1] handle source maintainer having the archive name properly --- Debbugs/Common.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/Debbugs/Common.pm b/Debbugs/Common.pm index 732ac2e..abc98dc 100644 --- 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) { -- 2.39.2