From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 20 Mar 2012 00:03:03 +0000 (-0700)
Subject: fixup source keys in affected packages
X-Git-Tag: release/2.6.0~410^2
X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=commitdiff_plain;h=217efa3361cad313fe66832d19c8674526e1977a

fixup source keys in affected packages
---

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,
 			],