Merge pull request #800 from haarg-contrib/authorized-only

only include perl releases from metacpan that are marked as authorized
gugod · Jun 9, 2024 · 7ccc6c2 · 7ccc6c2
2 parents 6982c9f + 7228b63
commit 7ccc6c2
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/lib/App/perlbrew.pm b/lib/App/perlbrew.pm
@@ -712,6 +712,8 @@ sub available_perl_distributions {
 
     my $decoded = decode_json($json);
     for my $release ( @{ $decoded->{releases} } ) {
+        next
+            if !$release->{authorized};
         push @perllist, [$release->{name}, $release->{download_url}];
     }
     foreach my $perl ( $self->filter_perl_available( \@perllist ) ) {