summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/Socket.pm
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2022-04-04 03:14:42 +0000
committerNorbert Preining <norbert@preining.info>2022-04-04 03:14:42 +0000
commit7548e4d37c2aaefd32fe0a9bcd83f8e71326dde1 (patch)
treed335b608e63e9b3c37d7ba0e567c63e77250e171 /systems/texlive/tlnet/tlpkg/tlperl/lib/Socket.pm
parent506de1e2d3515161cdbc7018b4ccc9e49d7f86e8 (diff)
CTAN sync 202204040314
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/Socket.pm')
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Socket.pm28
1 files changed, 16 insertions, 12 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Socket.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Socket.pm
index 2c6b5e45d0..fe47ef67ec 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Socket.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Socket.pm
@@ -1,9 +1,9 @@
package Socket;
use strict;
-{ use 5.006001; }
+{ use v5.6.1; }
-our $VERSION = '2.029';
+our $VERSION = '2.031';
=head1 NAME
@@ -110,7 +110,7 @@ level.
=head2 IP_PMTUDISC_WANT, IP_PMTUDISC_DONT, ...
-Socket option value contants for C<IP_MTU_DISCOVER> socket option.
+Socket option value constants for C<IP_MTU_DISCOVER> socket option.
=head2 IPTOS_LOWDELAY, IPTOS_THROUGHPUT, IPTOS_RELIABILITY, ...
@@ -837,6 +837,14 @@ BEGIN {
*LF = \LF();
*CRLF = \CRLF();
+# The four deprecated addrinfo constants
+foreach my $name (qw( AI_IDN_ALLOW_UNASSIGNED AI_IDN_USE_STD3_ASCII_RULES NI_IDN_ALLOW_UNASSIGNED NI_IDN_USE_STD3_ASCII_RULES )) {
+ no strict 'refs';
+ *$name = sub {
+ croak "The addrinfo constant $name is deprecated";
+ };
+}
+
sub sockaddr_in {
if (@_ == 6 && !wantarray) { # perl5.001m compat; use this && die
my($af, $port, @quad) = @_;
@@ -916,13 +924,9 @@ if( defined &getaddrinfo ) {
# Constants we don't support. Export them, but croak if anyone tries to
# use them
- AI_IDN => 64,
- AI_CANONIDN => 128,
- AI_IDN_ALLOW_UNASSIGNED => 256,
- AI_IDN_USE_STD3_ASCII_RULES => 512,
- NI_IDN => 32,
- NI_IDN_ALLOW_UNASSIGNED => 64,
- NI_IDN_USE_STD3_ASCII_RULES => 128,
+ AI_IDN => 64,
+ AI_CANONIDN => 128,
+ NI_IDN => 32,
# Error constants we'll never return, so it doesn't matter what value
# these have, nor that we don't provide strings for them
@@ -992,7 +996,7 @@ sub fake_getaddrinfo
# to talk AF_INET. If not we'd have to return no addresses at all. :)
$flags &= ~(AI_V4MAPPED()|AI_ALL()|AI_ADDRCONFIG());
- $flags & (AI_IDN()|AI_CANONIDN()|AI_IDN_ALLOW_UNASSIGNED()|AI_IDN_USE_STD3_ASCII_RULES()) and
+ $flags & (AI_IDN()|AI_CANONIDN()) and
croak "Socket::getaddrinfo() does not support IDN";
$flags == 0 or return fake_makeerr( EAI_BADFLAGS() );
@@ -1090,7 +1094,7 @@ sub fake_getnameinfo
my $flag_namereqd = $flags & NI_NAMEREQD(); $flags &= ~NI_NAMEREQD();
my $flag_dgram = $flags & NI_DGRAM() ; $flags &= ~NI_DGRAM();
- $flags & (NI_IDN()|NI_IDN_ALLOW_UNASSIGNED()|NI_IDN_USE_STD3_ASCII_RULES()) and
+ $flags & NI_IDN() and
croak "Socket::getnameinfo() does not support IDN";
$flags == 0 or return fake_makeerr( EAI_BADFLAGS() );