We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 9f07286 commit c382689Copy full SHA for c382689
lib/MetaCPAN/Query/Release.pm
@@ -1029,7 +1029,7 @@ Sorting:
1029
=cut
1030
1031
sub find_download_url {
1032
- my ( $self, $type, $module, $args ) = @_;
+ my ( $self, $type, $name, $args ) = @_;
1033
$args ||= {};
1034
1035
my $dev = $args->{dev};
@@ -1059,8 +1059,10 @@ sub find_download_url {
1059
must => [
1060
{ term => { $prefix . 'authorized' => 1 } },
1061
{ term => { $prefix . 'indexed' => 1 } },
1062
- { term => { $prefix . 'name' => $module } },
1063
(
+ $module_filter ? { term => { $prefix . 'name' => $name } }
1064
+ : { term => { 'release' => $name } },
1065
+ ) (
1066
exists $version_filters->{must}
1067
? @{ $version_filters->{must} }
1068
: ()
0 commit comments