use IO::File;
use Debbugs::Status qw(get_bug_status);
use Debbugs::Common qw(make_list getbuglocation getbugcomponent);
+use Debbugs::Packages;
use Storable qw(nstore retrieve);
use Scalar::Util qw(looks_like_number);
my $bug_status;
if (ref($bug)) {
my %param = __collapse_params(@{$bug});
+ next unless defined $param{bug};
+ $bug = $param{bug};
$bug_status = get_bug_status(map {(exists $param{$_})?($_,$param{$_}):()}
qw(bug dist arch bugusertags sourceversions version indicatesource)
);
my $VERSION = __populate_version(pop);
my ($self,$bug,$msg_num) = @_;
- my $location = getbuglocation($bug,'log');
- my $bug_log = getbugcomponent($bug,'log',$location);
-
- my $log_fh = IO::File->new($bug_log, 'r') or
- die "Unable to open bug log $bug_log for reading: $!";
-
- my $log = Debbugs::Log->new($log_fh) or
+ my $log = Debbugs::Log->new(bug_num => $bug) or
die "Debbugs::Log was unable to be initialized";
my %seen_msg_ids;
sub binary_to_source{
my $VERSION = __populate_version(pop);
+ my ($self,@params) = @_;
- return [binarytosource(@_)];
+ return [Debbugs::Packages::binarytosource(@params)];
}
=head2 source_to_binary
sub source_to_binary {
my $VERSION = __populate_version(pop);
+ my ($self,@params) = @_;
- return [source_to_binary(@_)];
+ return [Debbugs::Packages::sourcetobinary(@params)];
}
=head2 get_versions
sub get_versions{
my $VERSION = __populate_version(pop);
+ my ($self,@params) = @_;
- return scalar get_versions(@_);
+ return scalar Debbugs::Packages::get_versions(@params);
}
=head1 VERSION COMPATIBILITY