summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2024-03-15 03:06:35 +0000
committerNorbert Preining <norbert@preining.info>2024-03-15 03:06:35 +0000
commit12679ab7d3c2a210f4123163671b532b8b55d5f9 (patch)
tree0060d13467186ad977f4e73488ee20dd6c0017ab /systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket
parent62170822e034fdd3f81de7274835d0d3b0467100 (diff)
CTAN sync 202403150306
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket')
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket/INET.pm8
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket/IP.pm9
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket/UNIX.pm6
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