From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on dcvr.yhbt.net X-Spam-Level: X-Spam-ASN: X-Spam-Status: No, score=-4.2 required=3.0 tests=ALL_TRUSTED,BAYES_00, DKIM_SIGNED,DKIM_VALID,DKIM_VALID_AU,DKIM_VALID_EF shortcircuit=no autolearn=ham autolearn_force=no version=3.4.6 Received: from localhost (dcvr.yhbt.net [127.0.0.1]) by dcvr.yhbt.net (Postfix) with ESMTP id 778C91F560 for ; Sun, 24 Sep 2023 21:08:23 +0000 (UTC) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=80x24.org; s=selector1; t=1695589703; bh=07K3b7ivj10hiCmfaUiG6NIVHHejEXq5gvNnAcUCUH8=; h=From:To:Subject:Date:In-Reply-To:References:From; b=nYQPbq12P7eNzD+ZbN4YajxwZhpiD4dsT8BCtRy0jfXOxgn3xyUJp4cng5DrMepOi FBsr9F6+ev0fI7eijfC62OBdRNBg7egfaAFunR6drcW8bCf/suqfBXg5P5varWOM8B qCooD2Nl9byKr0fXDd6VQVDlPUyx1aQhzub8svXs= From: Eric Wong To: meta@public-inbox.org Subject: [PATCH 1/4] test_common: force IPv4 with pre-IPv6 Net::POP3 Date: Sun, 24 Sep 2023 21:08:19 +0000 Message-Id: <20230924210822.2771981-2-e@80x24.org> In-Reply-To: <20230924210822.2771981-1-e@80x24.org> References: <20230924210822.2771981-1-e@80x24.org> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit List-Id: This fixes t/pop3d-limit.t with the Net::POP3 shipped with Perl v5.16.3 on CentOS 7.x --- lib/PublicInbox/TestCommon.pm | 1 + t/pop3d-limit.t | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) 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;