diff options
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket/IP.pm')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket/IP.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket/IP.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket/IP.pm index 3158ef55ab..2601c716af 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket/IP.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket/IP.pm @@ -12,7 +12,8 @@ use warnings; # $VERSION needs to be set before use base 'IO::Socket' # - https://rt.cpan.org/Ticket/Display.html?id=92107 BEGIN { - our $VERSION = '0.41'; + our $VERSION = '0.41_01'; + $VERSION = eval $VERSION; } use base qw( IO::Socket ); @@ -154,6 +155,12 @@ sub import die "Cannot socket(PF_INET6) - $!"; if( setsockopt $testsock, IPPROTO_IPV6, IPV6_V6ONLY, 0 ) { + if ($^O eq "dragonfly") { + # dragonflybsd 6.4 lies about successfully turning this off + if (getsockopt $testsock, IPPROTO_IPV6, IPV6_V6ONLY) { + return $can_disable_v6only = 0; + } + } return $can_disable_v6only = 1; } elsif( $! == EINVAL || $! == EOPNOTSUPP ) { |