From 0693c19bacf8a314d621b5aaea498a20627b8d56 Mon Sep 17 00:00:00 2001 From: trizen Date: Thu, 19 Nov 2020 16:09:17 +0200 Subject: When all the good invidious instances with `statusClass == "success"` fail, try instances without a status class. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Jesús --- lib/WWW/FairViewer.pm | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'lib') diff --git a/lib/WWW/FairViewer.pm b/lib/WWW/FairViewer.pm index 422a2a9..41a5033 100644 --- a/lib/WWW/FairViewer.pm +++ b/lib/WWW/FairViewer.pm @@ -589,18 +589,16 @@ sub select_good_invidious_instances { sub pick_good_random_instance { my ($self) = @_; - my @candidates = $self->select_good_invidious_instances(); - if (not @candidates) { - @candidates = $self->select_good_invidious_instances(lax => 1); - } + my @candidates = $self->select_good_invidious_instances(); + my @extra_candidates = $self->select_good_invidious_instances(lax => 1); require List::Util; require WWW::FairViewer::Utils; state $yv_utils = WWW::FairViewer::Utils->new(); - foreach my $instance (List::Util::shuffle(@candidates)) { + foreach my $instance (List::Util::shuffle(@candidates), List::Util::shuffle(@extra_candidates)) { ref($instance) eq 'ARRAY' or next; -- cgit v1.2.3