diff options
| author | Eric Wong <e@80x24.org> | 2022-08-11 20:00:20 +0000 |
|---|---|---|
| committer | Eric Wong <e@80x24.org> | 2022-08-11 20:13:54 +0000 |
| commit | 132060cd24f640bb053406fcfa9a48d75589cac2 (patch) | |
| tree | ba673a3d90b9bc62d9ca9ce7631fe646406b6b7e | |
| parent | 5ddc599173fdca7f425f4a43396e100d57307c42 (diff) | |
| download | public-inbox-132060cd24f640bb053406fcfa9a48d75589cac2.tar.gz | |
curl only supports "pop3://" and "pop3s://", despite RFC 2384 existing for "pop://". AFAIK, there's no RFCs for "pop3://" and "pop3s://", but please let us know if there are. In any case, real-world cases like curl are more relevant.
| -rw-r--r-- | lib/PublicInbox/Inbox.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/PublicInbox/Inbox.pm b/lib/PublicInbox/Inbox.pm index 3f70e69d..1f7f982d 100644 --- a/lib/PublicInbox/Inbox.pm +++ b/lib/PublicInbox/Inbox.pm @@ -285,9 +285,9 @@ sub pop3_url { my $group = $self->{newsgroup}; my @urls; ($ps && $group) and - @urls = map { m!\Apops?://! ? $_ : "pop://$_" } @$ps; + @urls = map { m!\Apop3?s?://! ? $_ : "pop3://$_" } @$ps; if (my $mi = $self->{'pop3mirror'}) { - my @m = map { m!\Apops?://! ? $_ : "pop://$_" } @$mi; + my @m = map { m!\Apop3?s?://! ? $_ : "pop3://$_" } @$mi; my %seen; # List::Util::uniq requires Perl 5.26+ @urls = grep { !$seen{$_}++ } (@urls, @m); } |