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)
);
sub get_versions{
my $VERSION = __populate_version(pop);
- return scalar get_versions(@_);
+ return scalar Debbugs::Packages::get_versions(@_);
}
=head1 VERSION COMPATIBILITY