X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scripts%2Fservice;h=1cf0e40d58925a680fd90654f83d3f3e16d30854;hb=c95822fd37f3216bf0fec12cb96eaab976e2b42c;hp=98a9e11d62493365185814d8ef317264cc8aa049;hpb=0294a1c5b3fde38107f81dd9a8048a299bd2a881;p=debbugs.git

diff --git a/scripts/service b/scripts/service
index 98a9e11..1cf0e40 100755
--- 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,
 			],