diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/WWW/FairViewer.pm | 17 | ||||
| -rw-r--r-- | lib/WWW/FairViewer/Utils.pm | 3 |
2 files changed, 11 insertions, 9 deletions
diff --git a/lib/WWW/FairViewer.pm b/lib/WWW/FairViewer.pm index 41a5033..04dabf2 100644 --- a/lib/WWW/FairViewer.pm +++ b/lib/WWW/FairViewer.pm @@ -703,15 +703,20 @@ sub _make_feed_url { sub _extract_from_invidious { my ($self, $videoID) = @_; - my @instances = $self->select_good_invidious_instances(); + my @candidates = $self->select_good_invidious_instances(); + my @extra_candidates = $self->select_good_invidious_instances(lax => 1); - if (not @instances) { - @instances = $self->select_good_invidious_instances(lax => 1); - } + require List::Util; + +#<<< + my %seen; + my @instances = grep { !$seen{$_}++ } ( + List::Util::shuffle(map { $_->[0] } @candidates), + List::Util::shuffle(map { $_->[0] } @extra_candidates), + ); +#>>> if (@instances) { - require List::Util; - @instances = List::Util::shuffle(map { $_->[0] } @instances); push @instances, 'invidious.snopyta.org'; } else { diff --git a/lib/WWW/FairViewer/Utils.pm b/lib/WWW/FairViewer/Utils.pm index e341a57..8cdcce3 100644 --- a/lib/WWW/FairViewer/Utils.pm +++ b/lib/WWW/FairViewer/Utils.pm @@ -628,9 +628,6 @@ sub get_category_name { sub get_publication_date { my ($self, $info) = @_; - #$self->format_date($info->{snippet}{publishedAt}); - #$self->format_date - if (defined $info->{publishedText}) { return $info->{publishedText}; } |