diff options
author | Eric Wong <e@80x24.org> | 2023-09-24 21:08:19 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2023-09-24 23:14:22 +0000 |
commit | 73992d52f97f20b4db50a8e7a74ef78d4d473aa3 (patch) | |
tree | aeda2ff5bcbaa246d9a80f715fe187aa8cf1a7d0 | |
parent | 434a9fa1b53561e8b123534977dc82c581c46db2 (diff) | |
download | public-inbox-73992d52f97f20b4db50a8e7a74ef78d4d473aa3.tar.gz |
This fixes t/pop3d-limit.t with the Net::POP3 shipped with Perl v5.16.3 on CentOS 7.x
-rw-r--r-- | lib/PublicInbox/TestCommon.pm | 1 | ||||
-rw-r--r-- | t/pop3d-limit.t | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/lib/PublicInbox/TestCommon.pm b/lib/PublicInbox/TestCommon.pm index 28edee9f..1fdb5ebd 100644 --- a/lib/PublicInbox/TestCommon.pm +++ b/lib/PublicInbox/TestCommon.pm @@ -129,6 +129,7 @@ my %IPv6_VERSION = ( 'Net::NNTP' => 3.00, 'Mail::IMAPClient' => 3.40, 'HTTP::Tiny' => 0.042, + 'Net::POP3' => 2.32, ); sub require_mods { diff --git a/t/pop3d-limit.t b/t/pop3d-limit.t index 39d2f918..00da477d 100644 --- a/t/pop3d-limit.t +++ b/t/pop3d-limit.t @@ -75,7 +75,7 @@ my $login_d = ('d'x32)."\@$group?limit=100000"; my $login_d0 = ('d'x32)."\@$group.0?limit=100000"; for my $login ($login_a, $login_a0) { - my $np3 = Net::POP3->new(@np3args); + my $np3 = Net::POP3->new(@np3args) or xbail "Net::POP3 $!"; $np3->login($login, 'anonymous') or xbail "login $login ($!)"; my @msg = $fetch_delete->($np3); $np3->quit; |