download_url end point should query releases for "perl"

metacpan · Apr 25, 2024 · b3d2b1d · b3d2b1d
1 parent 926f55e
commit b3d2b1d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/MetaCPAN/Server/Controller/Search/DownloadURL.pm b/lib/MetaCPAN/Server/Controller/Search/DownloadURL.pm
@@ -13,7 +13,7 @@ has '+type' => ( default => 'file' );
 
 sub get : Local : Path('/download_url') : Args(1) {
     my ( $self, $c, $module ) = @_;
-    my $type = 'module';
+    my $type = $module eq 'perl' ? 'dist' : 'module';
     my $data
         = $self->model($c)
         ->find_download_url( $type, $module, $c->req->params );