diff options
author | Eric Wong <e@80x24.org> | 2016-03-07 17:43:19 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2016-03-08 04:14:15 +0000 |
commit | ea1b6cbd422b7e392cdb6979837a42679b0f180f (patch) | |
tree | 471555a53fab9d731742ab6792cc42d2d065a455 /lib | |
parent | 7fee1e27412463ab54c548949aff2dbe4abf95b5 (diff) | |
download | public-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.pm | 7 |
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'); } |