X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=blobdiff_plain;f=Debbugs%2FStatus.pm;h=9723259bdf482ce4b80ffcfb81d1ffe31d54334b;hp=dabf8112229f195c007c78e662b999ae9cc6e42b;hb=7c98c4f499ca7d51cee2f3f5ce2d3337cb1b42ca;hpb=5976ddd65b25c5eaadb6a403cb584528792e7c23 diff --git a/Debbugs/Status.pm b/Debbugs/Status.pm index dabf811..9723259 100644 --- a/Debbugs/Status.pm +++ b/Debbugs/Status.pm @@ -1235,9 +1235,9 @@ sub get_bug_status { $status{package} = '' if not defined $status{package}; $status{"package"} =~ s/\s*$//; - $status{source} = binary_to_source(binary=>[split /\s*,\s*/, $status{package}], + $status{source} = [binary_to_source(binary=>[split /\s*,\s*/, $status{package}], source_only => 1, - ); + )]; $status{"package"} = 'unknown' if ($status{"package"} eq ''); $status{"severity"} = 'normal' if (not defined $status{severity} or $status{"severity"} eq '');