its bugs= not bug=

[debbugs.git] / Debbugs / Recipients.pm

diff --git a/Debbugs/Recipients.pm b/Debbugs/Recipients.pm
index 9421a6008e835c4ea235876f00a862faad472339..8ab2208d388fdfe3793e311cac1d8932e2a23f96 100644 (file)
--- 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},
@@ -168,7 +170,7 @@ sub add_recipients {
      if (defined $config{bug_subscription_domain} and
         length $config{bug_subscription_domain}) {
          _add_address(recipients => $param{recipients},
-                      address    => 'bug='.$param{data}{bug_num}.'@'.
+                      address    => 'bugs='.$param{data}{bug_num}.'@'.
                                     $config{bug_subscription_domain},
                       reason     => "bug $param{data}{bug_num}",
                       bug_num    => $param{data}{bug_num},