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