From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on dcvr.yhbt.net X-Spam-Level: X-Spam-ASN: X-Spam-Status: No, score=-3.9 required=3.0 tests=ALL_TRUSTED,AWL,BAYES_00, T_SCC_BODY_TEXT_LINE shortcircuit=no autolearn=ham autolearn_force=no version=3.4.2 Received: from localhost (dcvr.yhbt.net [127.0.0.1]) by dcvr.yhbt.net (Postfix) with ESMTP id 2B2231F4CE for ; Sat, 2 Apr 2022 01:40:34 +0000 (UTC) From: Eric Wong To: meta@public-inbox.org Subject: [PATCH] examples/unsubscribe.milter: use IO::Socket, again Date: Sat, 2 Apr 2022 01:40:34 +0000 Message-Id: <20220402014034.31960-1-e@80x24.org> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit List-Id: Sendmail::PMilter requires an IO::Socket object, not a GLOB. Fixes: e901a56b3b30b22f (treewide: favor open(..., '+<&=', $fd), 2021-05-21) --- examples/unsubscribe.milter | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/examples/unsubscribe.milter b/examples/unsubscribe.milter index 608524cb..04a39761 100644 --- a/examples/unsubscribe.milter +++ b/examples/unsubscribe.milter @@ -127,7 +127,7 @@ my $fds = $ENV{LISTEN_FDS}; if ($fds && (($ENV{LISTEN_PID} || 0) == $$)) { die "$0 can only listen on one FD\n" if $fds != 1; my $start_fd = 3; - open(my $s, '<&=', $start_fd) or + my $s = IO::Socket->new_from_fd($start_fd, 'r') or die "inherited bad FD from LISTEN_FDS: $!\n"; $milter->set_socket($s); } else {