From ea1b6cbd422b7e392cdb6979837a42679b0f180f Mon Sep 17 00:00:00 2001
From: Eric Wong <e@80x24.org>
Date: Mon, 7 Mar 2016 17:43:19 +0000
Subject: daemon: allow using IO::Socket::IP over INET6

IO::Socket::IP is bundled with newer versions of Perl,
so it is more likely to be available.  There should
be no differences between these with our use cases.
---
 lib/PublicInbox/Daemon.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/PublicInbox/Daemon.pm b/lib/PublicInbox/Daemon.pm
index a6707e83..fcb1a3d3 100644
--- a/lib/PublicInbox/Daemon.pm
+++ b/lib/PublicInbox/Daemon.pm
@@ -68,8 +68,11 @@ sub daemon_prepare ($) {
 			}
 			$o{Local} = delete $o{Peer};
 		} else {
-			$sock_pkg = 'IO::Socket::INET6'; # works for IPv4, too
-			eval "use $sock_pkg";
+			# both work for IPv4, too
+			for $sock_pkg (qw(IO::Socket::IP IO::Socket::INET6)) {
+				eval "use $sock_pkg";
+				$@ or last;
+			}
 			die $@ if $@;
 			%o = (LocalAddr => $l, ReuseAddr => 1, Proto => 'tcp');
 		}
-- 
cgit v1.2.3-24-ge0c7