Merge pull request #1186 from metacpan/haarg/fix-perl-download-url

fix download_url end point querying for releases
metacpan · Apr 26, 2024 · 091a5fe · 091a5fe
2 parents 9f07286 + 2c966bb
commit 091a5fe
Showing 1 changed file with 5 additions and 2 deletions.
diff --git 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} }