From 2c966bb6f999d3af5e3fbff8916370b91e7f9401 Mon Sep 17 00:00:00 2001 From: Graham Knop Date: Thu, 25 Apr 2024 19:25:46 +0100 Subject: [PATCH] fix download_url end point querying for releases --- lib/MetaCPAN/Query/Release.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lib/MetaCPAN/Query/Release.pm b/lib/MetaCPAN/Query/Release.pm index 70e443859..f7f57af4c 100644 --- a/lib/MetaCPAN/Query/Release.pm +++ b/lib/MetaCPAN/Query/Release.pm @@ -1029,7 +1029,7 @@ Sorting: =cut sub find_download_url { - my ( $self, $type, $module, $args ) = @_; + my ( $self, $type, $name, $args ) = @_; $args ||= {}; my $dev = $args->{dev}; @@ -1059,7 +1059,10 @@ sub find_download_url { must => [ { term => { $prefix . 'authorized' => 1 } }, { term => { $prefix . 'indexed' => 1 } }, - { term => { $prefix . 'name' => $module } }, + ( + $module_filter ? { term => { $prefix . 'name' => $name } } + : { term => { 'release' => $name } }, + ), ( exists $version_filters->{must} ? @{ $version_filters->{must} }