use warnings;
use strict;
use vars qw($VERSION $DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT);
-use base qw(Exporter);
+use Exporter qw(import);
BEGIN{
($VERSION) = q$Revision: 1221 $ =~ /^Revision:\s+([^\s+])/;
actions_taken => {type => HASHREF,
default => {},
},
+ unknown_packages => {type => HASHREF,
+ default => {},
+ },
},
);
for my $data (@{$param{data}}) {
add_recipients(data => $data,
map {exists $param{$_}?($_,$param{$_}):()}
- qw(recipients debug transcript actions_taken)
+ qw(recipients debug transcript actions_taken unknown_packages)
);
}
return;
}
- my ($p, $addmaint);
- my $anymaintfound=0; my $anymaintnotfound=0;
+ my ($addmaint);
my $ref = $param{data}{bug_num};
for my $p (splitpackages($param{data}{package})) {
$p = lc($p);
}
else {
print {$param{debug}} "maintainer none >$p<\n";
- print {$param{transcript}} "Warning: Unknown package '$p'\n";
+ if (not exists $param{unknown_packages}{$p}) {
+ print {$param{transcript}} "Warning: Unknown package '$p'\n";
+ $param{unknown_packages}{$p} = 1;
+ }
print {$param{debug}} "MR|unknown-package|$p|$ref|\n";
_add_address(recipients => $param{recipients},
address => $config{unknown_maintainer_email},
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},
If you specify one of C<bcc>, C<cc>, or C<to>, you will receive only a
LIST of recipients which the main should be Bcc'ed, Cc'ed, or To'ed
respectively. By default, a LIST with keys bcc, cc, and to is returned
-with ARRAYREF values correponding to the users to whom a message
+with ARRAYREF values corresponding to the users to whom a message
should be sent.
=over