From 3013d5e295035c8a1e98fe97d98e59b10d208c04 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= Date: Sun, 9 May 2021 01:20:49 +0200 Subject: Forgot hashes aren't ordered --- run/p5p | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/run/p5p b/run/p5p index 165ad43..5e54f98 100755 --- a/run/p5p +++ b/run/p5p @@ -5,16 +5,16 @@ use warnings; use Net::NNTP; use HTML::Entities; -my %alt = ( - 'nntp.perl.org' => 'perl.perl5.porters', - 'news.gmane.io' => 'gmane.comp.lang.perl.perl5.porters', +my @alt = ( + ['nntp.perl.org' => 'perl.perl5.porters'], + ['news.gmane.io' => 'gmane.comp.lang.perl.perl5.porters'], ); my ($nntp, $count, $first, $last); -for my $server (keys %alt) { - $nntp = Net::NNTP->new($server, Timeout => 10) +for my $alt (@alt) { + $nntp = Net::NNTP->new($alt->[0], Timeout => 10) or next; - ($count, $first, $last) = $nntp->group($alt{$server}); + ($count, $first, $last) = $nntp->group($alt->[1]); last; } die "Cannot retrieve news: $!" if not $nntp; -- cgit v1.2.3