From 7228b63773a053611454b98d83f1456ca2a367a4 Mon Sep 17 00:00:00 2001
From: Graham Knop <haarg@haarg.org>
Date: Fri, 26 Apr 2024 09:07:57 +0100
Subject: [PATCH] only include perl releases from metacpan that are marked as
 authorized

---
 lib/App/perlbrew.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/App/perlbrew.pm b/lib/App/perlbrew.pm
index ea02dfe8..9b5abc65 100644
--- 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 ) ) {