fixup source keys in affected packages

diff --git a/scripts/service b/scripts/service
index 98a9e11d62493365185814d8ef317264cc8aa049..1cf0e40d58925a680fd90654f83d3f3e16d30854 100755 (executable)
--- a/scripts/service
+++ b/scripts/service
@@ -1114,7 +1114,10 @@ my $reply =
                         Precedence    => 'bulk',
                         keys %affected_packages ?("X-${gProject}-PR-Package" => join(' ',keys %affected_packages)):(),
                         keys %affected_packages ?("X-${gProject}-PR-Source" =>
-                                                  join(' ',grep {defined $_} map {binary_to_source(binary => $_)} keys %affected_packages)):(),
+                                                  join(' ',
+                                                       map {defined $_ ?(ref($_)?@{$_}:$_):()}
+                                                       binary_to_source(binary => [keys %affected_packages],
+                                                                        source_only => 1))):(),
                         "X-$gProject-PR-Message" => 'transcript',
                         @common_headers,
                        ],