about summary refs log tree commit homepage
path: root/lib
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2016-03-07 17:43:19 +0000
committerEric Wong <e@80x24.org>2016-03-08 04:14:15 +0000
commitea1b6cbd422b7e392cdb6979837a42679b0f180f (patch)
tree471555a53fab9d731742ab6792cc42d2d065a455 /lib
parent7fee1e27412463ab54c548949aff2dbe4abf95b5 (diff)
downloadpublic-inbox-ea1b6cbd422b7e392cdb6979837a42679b0f180f.tar.gz
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.
Diffstat (limited to 'lib')
-rw-r--r--lib/PublicInbox/Daemon.pm7
1 files changed, 5 insertions, 2 deletions
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');
                 }