use Debbugs::Config qw(:config);
use Params::Validate qw(:types validate_with);
+use Debbugs::Packages;
+
BEGIN{
($VERSION) = q$Revision: 1.1 $ =~ /^Revision:\s+([^\s+])/;
$DEBUG = 0 unless defined $DEBUG;
@EXPORT = ();
- %EXPORT_TAGS = (addresses => qw(get_addresses),
- misc => qw(rfc822_date),
- mail => qw(send_mail_message encode_headers default_headers),
+ %EXPORT_TAGS = (addresses => [qw(get_addresses)],
+ misc => [qw(rfc822_date)],
+ mail => [qw(send_mail_message encode_headers default_headers)],
);
@EXPORT_OK = ();
Exporter::export_ok_tags(keys %EXPORT_TAGS);
$default_header{"X-$config{project}-PR-Source"} = $1;
}
else {
- my $pkg_src = getpkgsrc();
+ my $pkg_src = Debbugs::Packages::getpkgsrc();
$default_header{"X-$config{project}-PR-Source"} = $pkg_src->{$param{data}{package}};
}
}