diff options
author | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
commit | 12679ab7d3c2a210f4123163671b532b8b55d5f9 (patch) | |
tree | 0060d13467186ad977f4e73488ee20dd6c0017ab /systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket | |
parent | 62170822e034fdd3f81de7274835d0d3b0467100 (diff) |
CTAN sync 202403150306
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket')
3 files changed, 15 insertions, 8 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket/INET.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket/INET.pm index 5b76c2e3f5..97d445043c 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket/INET.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket/INET.pm @@ -14,7 +14,7 @@ use Exporter; use Errno; our @ISA = qw(IO::Socket); -our $VERSION = "1.46"; +our $VERSION = "1.52"; my $EINVAL = exists(&Errno::EINVAL) ? Errno::EINVAL() : 1; @@ -330,7 +330,7 @@ inherits all the methods defined by L<IO::Socket>. =item new ( [ARGS] ) Creates an C<IO::Socket::INET> object, which is a reference to a -newly created symbol (see the C<Symbol> package). C<new> +newly created symbol (see the L<Symbol> package). C<new> optionally takes arguments, these arguments are in key-value pairs. In addition to the key-value pairs accepted by L<IO::Socket>, @@ -401,7 +401,7 @@ Examples: $sock = IO::Socket::INET->new( PeerPort => 9999, PeerAddr => inet_ntoa(INADDR_BROADCAST), - Proto => udp, + Proto => 'udp', LocalAddr => 'localhost', Broadcast => 1 ) or die "Can't bind : $IO::Socket::errstr\n"; @@ -460,7 +460,7 @@ L<Socket>, L<IO::Socket> =head1 AUTHOR Graham Barr. Currently maintained by the Perl Porters. Please report all -bugs to <perlbug@perl.org>. +bugs at L<https://github.com/Perl/perl5/issues>. =head1 COPYRIGHT 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 ) { diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket/UNIX.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket/UNIX.pm index a93456c052..89deec2620 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket/UNIX.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket/UNIX.pm @@ -11,7 +11,7 @@ use IO::Socket; use Carp; our @ISA = qw(IO::Socket); -our $VERSION = "1.46"; +our $VERSION = "1.52"; IO::Socket::UNIX->register_domain( AF_UNIX ); @@ -111,7 +111,7 @@ inherits all the methods defined by L<IO::Socket>. =item new ( [ARGS] ) Creates an C<IO::Socket::UNIX> object, which is a reference to a -newly created symbol (see the C<Symbol> package). C<new> +newly created symbol (see the L<Symbol> package). C<new> optionally takes arguments, these arguments are in key-value pairs. In addition to the key-value pairs accepted by L<IO::Socket>, @@ -162,7 +162,7 @@ L<Socket>, L<IO::Socket> =head1 AUTHOR Graham Barr. Currently maintained by the Perl Porters. Please report all -bugs to <perlbug@perl.org>. +bugs at L<https://github.com/Perl/perl5/issues>. =head1 COPYRIGHT |