From f75033650b8b549cfeaddee67363d152f93666fa Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Sun, 2 Apr 2017 14:42:29 -0700 Subject: [PATCH] change fix to #858671 to split source with split_status_fields Some consumers of get_bug_status via SOAP were not handling split packages --- Debbugs/Status.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/Debbugs/Status.pm b/Debbugs/Status.pm index 9723259..6fe1c1a 100644 --- a/Debbugs/Status.pm +++ b/Debbugs/Status.pm @@ -307,6 +307,9 @@ my $ditch_empty_space = sub {return &{$ditch_empty}(' ',@_)}; my %split_fields = (package => \&splitpackages, affects => \&splitpackages, + # Ideally we won't have to split source, but because some consumers of + # get_bug_status cannot handle arrayref, we will split it here. + source => \&splitpackages, blocks => $ditch_empty_space, blockedby => $ditch_empty_space, # this isn't strictly correct, but we'll split both of them for @@ -1235,9 +1238,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 ''); -- 2.39.2