only include perl releases from metacpan that are marked as authorized

gugod · Apr 26, 2024 · 7228b63 · 7228b63
1 parent dd5a319
commit 7228b63
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/lib/App/perlbrew.pm b/lib/App/perlbrew.pm
@@ -711,6 +711,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 ) ) {