From 217efa3361cad313fe66832d19c8674526e1977a Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 19 Mar 2012 17:03:03 -0700
Subject: [PATCH] fixup source keys in affected packages

---
 scripts/service | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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