diff options
| -rw-r--r-- | lib/WWW/FairViewer.pm | 8 |
1 files changed, 3 insertions, 5 deletions
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; |