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);
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},
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},