diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/PublicInbox/Daemon.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/PublicInbox/Daemon.pm b/lib/PublicInbox/Daemon.pm index fcb1a3d3..c6fb62bf 100644 --- a/lib/PublicInbox/Daemon.pm +++ b/lib/PublicInbox/Daemon.pm @@ -69,7 +69,8 @@ sub daemon_prepare ($) { $o{Local} = delete $o{Peer}; } else { # both work for IPv4, too - for $sock_pkg (qw(IO::Socket::IP IO::Socket::INET6)) { + for (qw(IO::Socket::IP IO::Socket::INET6)) { + $sock_pkg = $_; eval "use $sock_pkg"; $@ or last; } @@ -79,7 +80,7 @@ sub daemon_prepare ($) { $o{Listen} = 1024; my $prev = umask 0000; my $s = eval { $sock_pkg->new(%o) }; - warn "error binding $l: $!\n" unless $s; + warn "error binding $l: $! ($@)\n" unless $s; umask $prev; if ($s) { |