"This means that this package no longer exists (or never existed). ".
"Please do not report new bugs against this package. </p>\n";
}
- my @pkgs = getsrcpkgs($srcforpkg);
+ my @pkgs = source_to_binary(source => $srcforpkg,
+ hash_slice(%param,qw(schema)),
+ binary_only => 1,
+ # if there are distributions, only bother to
+ # show packages which are currently in a
+ # distribution.
+ @{$config{distributions}//[]} ?
+ (dist => [@{$config{distributions}}]) : (),
+ );
@pkgs = grep( !/^\Q$package\E$/, @pkgs );
if ( @pkgs ) {
@pkgs = sort @pkgs;
=item version -- binary package version(s) as a SCALAR or ARRAYREF;
optional, defaults to all versions.
-=item arch -- binary package architecture(s) as a SCALAR or ARRAYREF;
-optional, defaults to all architectures.
+=item dist -- list of distributions to return corresponding binary packages for
+as a SCALAR or ARRAYREF.
=item binary_only -- return only the source name (forced on if in SCALAR
context), defaults to false. [If in LIST context, returns a list of binary
version => {type => SCALAR|ARRAYREF,
optional => 1,
},
+ dist => {type => SCALAR|ARRAYREF,
+ optional => 1,
+ },
binary_only => {default => 0,
},
scalar_only => {default => 0,
distinct => 1,
},
);
+ if (exists $param{dist}) {
+ $bin_rs = $bin_rs->
+ search({-or =>
+ {'suite.codename' => [make_list($param{dist})],
+ 'suite.suite_name' => [make_list($param{dist})],
+ }},
+ {join => {'bin_vers' =>
+ {'bin_associations' =>
+ 'suite'
+ }},
+ });
+ }
push @binaries,
map {$_->{pkg}} $bin_rs->all;
if ($param{scalar_only}) {