From cf518e6b4876e2641960739ba58d9b112befd85a Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Sat, 2 Apr 2022 01:40:34 +0000 Subject: examples/unsubscribe.milter: use IO::Socket, again 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(-) (limited to 'examples/unsubscribe.milter') 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 { -- cgit v1.2.3-24-ge0c7