X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FRecipients.pm;fp=Debbugs%2FRecipients.pm;h=a06e69249f4f41877ea92613b4aabf40cf6cb192;hb=f7c407cec69e02bdf54048891cdaa5fcbc18a10b;hp=9421a6008e835c4ea235876f00a862faad472339;hpb=34cb2ef70829240d863bade0585e0ced71c65942;p=debbugs.git

diff --git a/Debbugs/Recipients.pm b/Debbugs/Recipients.pm
index 9421a60..a06e692 100644
--- a/Debbugs/Recipients.pm
+++ b/Debbugs/Recipients.pm
@@ -46,7 +46,7 @@ use Params::Validate qw(:types validate_with);
 use Debbugs::Common qw(:misc :util);
 use Debbugs::Status qw(splitpackages isstrongseverity);
 
-use Debbugs::Packages qw(binarytosource);
+use Debbugs::Packages qw(binary_to_source);
 
 use Debbugs::Mail qw(get_addresses);
 
@@ -114,7 +114,9 @@ sub add_recipients {
      for my $p (splitpackages($param{data}{package})) {
 	  $p = lc($p);
 	  if (defined $config{subscription_domain}) {
-	       my @source_packages = binarytosource($p);
+	       my @source_packages = binary_to_source(binary => $p,
+						      source_only => 1,
+						     );
 	       if (@source_packages) {
 		    for my $source (@source_packages) {
 			 _add_address(recipients => $param{recipients},