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.
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);
}