From 7548e4d37c2aaefd32fe0a9bcd83f8e71326dde1 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 4 Apr 2022 03:14:42 +0000 Subject: CTAN sync 202204040314 --- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/Escape.pm | 2 +- .../tlnet/tlpkg/tlperl/site/lib/URI/Heuristic.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/IRI.pm | 2 +- .../tlnet/tlpkg/tlperl/site/lib/URI/QueryParam.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/Split.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/URL.pm | 2 +- .../tlnet/tlpkg/tlperl/site/lib/URI/WithBase.pm | 2 +- .../tlnet/tlpkg/tlperl/site/lib/URI/_foreign.pm | 2 +- .../tlnet/tlpkg/tlperl/site/lib/URI/_generic.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/_idna.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/_ldap.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/_login.pm | 2 +- .../tlnet/tlpkg/tlperl/site/lib/URI/_punycode.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/_query.pm | 2 +- .../tlnet/tlpkg/tlperl/site/lib/URI/_segment.pm | 2 +- .../tlnet/tlpkg/tlperl/site/lib/URI/_server.pm | 2 +- .../tlnet/tlpkg/tlperl/site/lib/URI/_userpass.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/data.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/file.pm | 2 +- .../tlnet/tlpkg/tlperl/site/lib/URI/file/Base.pm | 2 +- .../tlnet/tlpkg/tlperl/site/lib/URI/file/FAT.pm | 2 +- .../tlnet/tlpkg/tlperl/site/lib/URI/file/Mac.pm | 2 +- .../tlnet/tlpkg/tlperl/site/lib/URI/file/OS2.pm | 2 +- .../tlnet/tlpkg/tlperl/site/lib/URI/file/QNX.pm | 2 +- .../tlnet/tlpkg/tlperl/site/lib/URI/file/Unix.pm | 2 +- .../tlnet/tlpkg/tlperl/site/lib/URI/file/Win32.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/ftp.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/gopher.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/http.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/https.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/ldap.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/ldapi.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/ldaps.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/mailto.pm | 19 +++++++++++++++++-- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/mms.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/news.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/nntp.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/nntps.pm | 14 ++++++++++++++ .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/pop.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/rlogin.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/rsync.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/rtsp.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/rtspu.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/sftp.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/sip.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/sips.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/snews.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/ssh.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/telnet.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/tn3270.pm | 2 +- .../texlive/tlnet/tlpkg/tlperl/site/lib/URI/urn.pm | 2 +- .../tlnet/tlpkg/tlperl/site/lib/URI/urn/isbn.pm | 16 ++++++++-------- .../tlnet/tlpkg/tlperl/site/lib/URI/urn/oid.pm | 2 +- 53 files changed, 89 insertions(+), 60 deletions(-) create mode 100755 systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/nntps.pm (limited to 'systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI') diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/Escape.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/Escape.pm index 61cb6d9f30..5760bb55b0 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/Escape.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/Escape.pm @@ -141,7 +141,7 @@ use Exporter 5.57 'import'; our %escapes; our @EXPORT = qw(uri_escape uri_unescape uri_escape_utf8); our @EXPORT_OK = qw(%escapes); -our $VERSION = '5.07'; +our $VERSION = '5.10'; use Carp (); diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/Heuristic.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/Heuristic.pm index fc11f03c04..f2637a028b 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/Heuristic.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/Heuristic.pm @@ -91,7 +91,7 @@ use warnings; use Exporter 5.57 'import'; our @EXPORT_OK = qw(uf_uri uf_uristr uf_url uf_urlstr); -our $VERSION = '5.07'; +our $VERSION = '5.10'; our ($MY_COUNTRY, $DEBUG); diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/IRI.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/IRI.pm index deaed8c96a..fd185a9e49 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/IRI.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/IRI.pm @@ -8,7 +8,7 @@ use URI (); use overload '""' => sub { shift->as_string }; -our $VERSION = '5.07'; +our $VERSION = '5.10'; sub new { my($class, $uri, $scheme) = @_; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/QueryParam.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/QueryParam.pm index 8c382bf9a4..c7ff25ed9f 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/QueryParam.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/QueryParam.pm @@ -3,7 +3,7 @@ package URI::QueryParam; use strict; use warnings; -our $VERSION = '5.07'; +our $VERSION = '5.10'; sub URI::_query::query_param { my $self = shift; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/Split.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/Split.pm index 181da6d2c4..b31d8281ce 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/Split.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/Split.pm @@ -3,7 +3,7 @@ package URI::Split; use strict; use warnings; -our $VERSION = '5.07'; +our $VERSION = '5.10'; use Exporter 5.57 'import'; our @EXPORT_OK = qw(uri_split uri_join); diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/URL.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/URL.pm index e8d6ae6e61..9591e9e76a 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/URL.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/URL.pm @@ -5,7 +5,7 @@ use warnings; use parent 'URI::WithBase'; -our $VERSION = '5.07'; +our $VERSION = '5.10'; # Provide as much as possible of the old URI::URL interface for backwards # compatibility... diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/WithBase.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/WithBase.pm index a682f3d9d4..76c331b0af 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/WithBase.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/WithBase.pm @@ -6,7 +6,7 @@ use warnings; use URI (); use Scalar::Util qw(blessed); -our $VERSION = '5.07'; +our $VERSION = '5.10'; use overload '""' => "as_string", fallback => 1; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_foreign.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_foreign.pm index c8ae6d7ec7..bc44f4a059 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_foreign.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_foreign.pm @@ -5,6 +5,6 @@ use warnings; use parent 'URI::_generic'; -our $VERSION = '5.07'; +our $VERSION = '5.10'; 1; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_generic.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_generic.pm index b7085f5af9..9ff33b2142 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_generic.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_generic.pm @@ -8,7 +8,7 @@ use parent qw(URI URI::_query); use URI::Escape qw(uri_unescape); use Carp (); -our $VERSION = '5.07'; +our $VERSION = '5.10'; my $ACHAR = $URI::uric; $ACHAR =~ s,\\[/?],,g; my $PCHAR = $URI::uric; $PCHAR =~ s,\\[?],,g; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_idna.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_idna.pm index 2b3912fa23..4292d3e982 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_idna.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_idna.pm @@ -9,7 +9,7 @@ use warnings; use URI::_punycode qw(decode_punycode encode_punycode); use Carp qw(croak); -our $VERSION = '5.07'; +our $VERSION = '5.10'; BEGIN { *URI::_idna::_ENV_::JOIN_LEAKS_UTF8_FLAGS = "$]" < 5.008_003 diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_ldap.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_ldap.pm index 32834a140d..43193b4c9d 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_ldap.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_ldap.pm @@ -7,7 +7,7 @@ package URI::_ldap; use strict; use warnings; -our $VERSION = '5.07'; +our $VERSION = '5.10'; use URI::Escape qw(uri_unescape); diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_login.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_login.pm index e44e8f0418..c3d0583ccc 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_login.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_login.pm @@ -5,7 +5,7 @@ use warnings; use parent qw(URI::_server URI::_userpass); -our $VERSION = '5.07'; +our $VERSION = '5.10'; # Generic terminal logins. This is used as a base class for 'telnet', # 'tn3270', and 'rlogin' URL schemes. diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_punycode.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_punycode.pm index d3af7a3321..eeb3662e1f 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_punycode.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_punycode.pm @@ -3,7 +3,7 @@ package URI::_punycode; use strict; use warnings; -our $VERSION = '5.07'; +our $VERSION = '5.10'; use Exporter 'import'; our @EXPORT = qw(encode_punycode decode_punycode); diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_query.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_query.pm index 690f844406..b9b70c491d 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_query.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_query.pm @@ -6,7 +6,7 @@ use warnings; use URI (); use URI::Escape qw(uri_unescape); -our $VERSION = '5.07'; +our $VERSION = '5.10'; sub query { diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_segment.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_segment.pm index ca8088ed0f..364ca4857d 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_segment.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_segment.pm @@ -11,7 +11,7 @@ use URI::Escape qw(uri_unescape); use overload '""' => sub { $_[0]->[0] }, fallback => 1; -our $VERSION = '5.07'; +our $VERSION = '5.10'; sub new { diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_server.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_server.pm index b44b988336..fec55a4fe0 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_server.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_server.pm @@ -7,7 +7,7 @@ use parent 'URI::_generic'; use URI::Escape qw(uri_unescape); -our $VERSION = '5.07'; +our $VERSION = '5.10'; sub _uric_escape { my($class, $str) = @_; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_userpass.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_userpass.pm index 5553a0be4b..acf571783a 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_userpass.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_userpass.pm @@ -5,7 +5,7 @@ use warnings; use URI::Escape qw(uri_unescape); -our $VERSION = '5.07'; +our $VERSION = '5.10'; sub user { diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/data.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/data.pm index ade96d80cd..666ef38afb 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/data.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/data.pm @@ -5,7 +5,7 @@ use warnings; use parent 'URI'; -our $VERSION = '5.07'; +our $VERSION = '5.10'; use MIME::Base64 qw(decode_base64 encode_base64); use URI::Escape qw(uri_unescape); diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file.pm index 0d07a2d1e9..c9973ecce9 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file.pm @@ -4,7 +4,7 @@ use strict; use warnings; use parent 'URI::_generic'; -our $VERSION = '5.07'; +our $VERSION = '5.10'; use URI::Escape qw(uri_unescape); diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file/Base.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file/Base.pm index 4926df773a..5192f33a14 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file/Base.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file/Base.pm @@ -5,7 +5,7 @@ use warnings; use URI::Escape (); -our $VERSION = '5.07'; +our $VERSION = '5.10'; sub new { diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file/FAT.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file/FAT.pm index 5d8fe87263..521c3a05a4 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file/FAT.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file/FAT.pm @@ -5,7 +5,7 @@ use warnings; use parent 'URI::file::Win32'; -our $VERSION = '5.07'; +our $VERSION = '5.10'; sub fix_path { diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file/Mac.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file/Mac.pm index ca192ec6d7..ee7bf57877 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file/Mac.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file/Mac.pm @@ -7,7 +7,7 @@ use parent 'URI::file::Base'; use URI::Escape qw(uri_unescape); -our $VERSION = '5.07'; +our $VERSION = '5.10'; sub _file_extract_path { diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file/OS2.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file/OS2.pm index 38b0106d56..14ec91570b 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file/OS2.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file/OS2.pm @@ -5,7 +5,7 @@ use warnings; use parent 'URI::file::Win32'; -our $VERSION = '5.07'; +our $VERSION = '5.10'; # The Win32 version translates k:/foo to file://k:/foo (?!) # We add an empty host diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file/QNX.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file/QNX.pm index c9893cbf0f..cb47809898 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file/QNX.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file/QNX.pm @@ -5,7 +5,7 @@ use warnings; use parent 'URI::file::Unix'; -our $VERSION = '5.07'; +our $VERSION = '5.10'; sub _file_extract_path { diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file/Unix.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file/Unix.pm index 08dee07d48..fa226f7765 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file/Unix.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file/Unix.pm @@ -7,7 +7,7 @@ use parent 'URI::file::Base'; use URI::Escape qw(uri_unescape); -our $VERSION = '5.07'; +our $VERSION = '5.10'; sub _file_extract_path { diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file/Win32.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file/Win32.pm index fd51dd481f..bc1b373b4e 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file/Win32.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/file/Win32.pm @@ -7,7 +7,7 @@ use parent 'URI::file::Base'; use URI::Escape qw(uri_unescape); -our $VERSION = '5.07'; +our $VERSION = '5.10'; sub _file_extract_authority { diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/ftp.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/ftp.pm index 15d068c81d..a6c12df271 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/ftp.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/ftp.pm @@ -3,7 +3,7 @@ package URI::ftp; use strict; use warnings; -our $VERSION = '5.07'; +our $VERSION = '5.10'; use parent qw(URI::_server URI::_userpass); diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/gopher.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/gopher.pm index e251164a00..febd95c0ba 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/gopher.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/gopher.pm @@ -3,7 +3,7 @@ package URI::gopher; # , Dec 4, 1996 use strict; use warnings; -our $VERSION = '5.07'; +our $VERSION = '5.10'; use parent 'URI::_server'; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/http.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/http.pm index b99edcc909..50a09f0989 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/http.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/http.pm @@ -3,7 +3,7 @@ package URI::http; use strict; use warnings; -our $VERSION = '5.07'; +our $VERSION = '5.10'; use parent 'URI::_server'; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/https.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/https.pm index a4ec77ecbc..e3283e57c0 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/https.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/https.pm @@ -3,7 +3,7 @@ package URI::https; use strict; use warnings; -our $VERSION = '5.07'; +our $VERSION = '5.10'; use parent 'URI::http'; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/ldap.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/ldap.pm index ea503a3337..2977954b5a 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/ldap.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/ldap.pm @@ -7,7 +7,7 @@ package URI::ldap; use strict; use warnings; -our $VERSION = '5.07'; +our $VERSION = '5.10'; use parent qw(URI::_ldap URI::_server); diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/ldapi.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/ldapi.pm index d648e1bc08..e3bac5a860 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/ldapi.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/ldapi.pm @@ -3,7 +3,7 @@ package URI::ldapi; use strict; use warnings; -our $VERSION = '5.07'; +our $VERSION = '5.10'; use parent qw(URI::_ldap URI::_generic); diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/ldaps.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/ldaps.pm index 3270f3f8ff..4d58c67e38 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/ldaps.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/ldaps.pm @@ -3,7 +3,7 @@ package URI::ldaps; use strict; use warnings; -our $VERSION = '5.07'; +our $VERSION = '5.10'; use parent 'URI::ldap'; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/mailto.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/mailto.pm index 2ed4275706..5d6f241080 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/mailto.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/mailto.pm @@ -3,7 +3,7 @@ package URI::mailto; # RFC 2368 use strict; use warnings; -our $VERSION = '5.07'; +our $VERSION = '5.10'; use parent qw(URI URI::_query); @@ -38,7 +38,7 @@ sub to } -sub headers +sub headers { my $self = shift; @@ -70,4 +70,19 @@ sub headers URI->new("mailto:?$opaque")->query_form; } +# https://datatracker.ietf.org/doc/html/rfc6068#section-5 requires +# plus signs (+) not to be turned into spaces +sub query_form +{ + my $self = shift; + my @fields = $self->SUPER::query_form(@_); + for ( my $i = 0 ; $i < @fields ; $i += 2 ) { + if ( $fields[0] eq 'to' ) { + $fields[1] =~ s/ /+/g; + last; + } + } + return @fields; +} + 1; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/mms.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/mms.pm index 66b11406cc..6a41297484 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/mms.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/mms.pm @@ -3,7 +3,7 @@ package URI::mms; use strict; use warnings; -our $VERSION = '5.07'; +our $VERSION = '5.10'; use parent 'URI::http'; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/news.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/news.pm index fab598c2ee..4092981be0 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/news.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/news.pm @@ -3,7 +3,7 @@ package URI::news; # draft-gilman-news-url-01 use strict; use warnings; -our $VERSION = '5.07'; +our $VERSION = '5.10'; use parent 'URI::_server'; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/nntp.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/nntp.pm index 3676deb975..be276893d0 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/nntp.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/nntp.pm @@ -3,7 +3,7 @@ package URI::nntp; # draft-gilman-news-url-01 use strict; use warnings; -our $VERSION = '5.07'; +our $VERSION = '5.10'; use parent 'URI::news'; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/nntps.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/nntps.pm new file mode 100755 index 0000000000..a10e99293a --- /dev/null +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/nntps.pm @@ -0,0 +1,14 @@ +package URI::nntps; + +use strict; +use warnings; + +our $VERSION = '5.10'; + +use parent 'URI::nntp'; + +sub default_port { 563 } + +sub secure { 1 } + +1; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/pop.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/pop.pm index 017f699ca7..accab911b4 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/pop.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/pop.pm @@ -3,7 +3,7 @@ package URI::pop; # RFC 2384 use strict; use warnings; -our $VERSION = '5.07'; +our $VERSION = '5.10'; use parent 'URI::_server'; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/rlogin.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/rlogin.pm index c4c37b63dc..049ff4a026 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/rlogin.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/rlogin.pm @@ -3,7 +3,7 @@ package URI::rlogin; use strict; use warnings; -our $VERSION = '5.07'; +our $VERSION = '5.10'; use parent 'URI::_login'; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/rsync.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/rsync.pm index cf978d18b1..164c6b7d55 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/rsync.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/rsync.pm @@ -5,7 +5,7 @@ package URI::rsync; # http://rsync.samba.org/ use strict; use warnings; -our $VERSION = '5.07'; +our $VERSION = '5.10'; use parent qw(URI::_server URI::_userpass); diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/rtsp.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/rtsp.pm index 0c056a8552..48429f7e1a 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/rtsp.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/rtsp.pm @@ -3,7 +3,7 @@ package URI::rtsp; use strict; use warnings; -our $VERSION = '5.07'; +our $VERSION = '5.10'; use parent 'URI::http'; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/rtspu.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/rtspu.pm index b70be28b49..c9bc64d49d 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/rtspu.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/rtspu.pm @@ -3,7 +3,7 @@ package URI::rtspu; use strict; use warnings; -our $VERSION = '5.07'; +our $VERSION = '5.10'; use parent 'URI::rtsp'; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/sftp.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/sftp.pm index b1636f0901..4c9a1f38bf 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/sftp.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/sftp.pm @@ -5,6 +5,6 @@ use warnings; use parent 'URI::ssh'; -our $VERSION = '5.07'; +our $VERSION = '5.10'; 1; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/sip.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/sip.pm index 4e13644cb7..a6aeb858ac 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/sip.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/sip.pm @@ -14,7 +14,7 @@ use parent qw(URI::_server URI::_userpass); use URI::Escape (); -our $VERSION = '5.07'; +our $VERSION = '5.10'; sub default_port { 5060 } diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/sips.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/sips.pm index 7e8e0ff17c..3d7c2f2d6a 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/sips.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/sips.pm @@ -3,7 +3,7 @@ package URI::sips; use strict; use warnings; -our $VERSION = '5.07'; +our $VERSION = '5.10'; use parent 'URI::sip'; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/snews.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/snews.pm index 52d3e4fdcf..e541482125 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/snews.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/snews.pm @@ -3,7 +3,7 @@ package URI::snews; # draft-gilman-news-url-01 use strict; use warnings; -our $VERSION = '5.07'; +our $VERSION = '5.10'; use parent 'URI::news'; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/ssh.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/ssh.pm index 53ddfee25e..7273c2b1a5 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/ssh.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/ssh.pm @@ -3,7 +3,7 @@ package URI::ssh; use strict; use warnings; -our $VERSION = '5.07'; +our $VERSION = '5.10'; use parent 'URI::_login'; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/telnet.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/telnet.pm index 72eca504a3..5d81650607 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/telnet.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/telnet.pm @@ -3,7 +3,7 @@ package URI::telnet; use strict; use warnings; -our $VERSION = '5.07'; +our $VERSION = '5.10'; use parent 'URI::_login'; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/tn3270.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/tn3270.pm index 9be1c82998..53a341402e 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/tn3270.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/tn3270.pm @@ -3,7 +3,7 @@ package URI::tn3270; use strict; use warnings; -our $VERSION = '5.07'; +our $VERSION = '5.10'; use parent 'URI::_login'; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/urn.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/urn.pm index 83c9dfcbda..75f3a9b646 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/urn.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/urn.pm @@ -3,7 +3,7 @@ package URI::urn; # RFC 2141 use strict; use warnings; -our $VERSION = '5.07'; +our $VERSION = '5.10'; use parent 'URI'; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/urn/isbn.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/urn/isbn.pm index 945eba5b19..4986d701f6 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/urn/isbn.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/urn/isbn.pm @@ -3,7 +3,7 @@ package URI::urn::isbn; # RFC 3187 use strict; use warnings; -our $VERSION = '5.07'; +our $VERSION = '5.10'; use parent 'URI::urn'; @@ -11,13 +11,13 @@ use Carp qw(carp); BEGIN { require Business::ISBN; - + local $^W = 0; # don't warn about dev versions, perl5.004 style - warn "Using Business::ISBN version " . Business::ISBN->VERSION . - " which is deprecated.\nUpgrade to Business::ISBN version 2\n" - if Business::ISBN->VERSION < 2; + warn "Using Business::ISBN version " . Business::ISBN->VERSION . + " which is deprecated.\nUpgrade to Business::ISBN version 3.005\n" + if Business::ISBN->VERSION < 3.005; } - + sub _isbn { my $nss = shift; $nss = $nss->nss if ref($nss); @@ -61,7 +61,7 @@ sub isbn_group_code { sub isbn_country_code { my $name = (caller(0))[3]; $name =~ s/.*:://; carp "$name is DEPRECATED. Use isbn_group_code instead"; - + no strict 'refs'; &isbn_group_code; } @@ -74,7 +74,7 @@ my $isbn13_method = do { sub isbn13 { my $isbn = shift->_isbn || return undef; - + # Business::ISBN 1.x didn't put hyphens in the EAN, and it was just a string # Business::ISBN 2.0 doesn't do EAN, but it does ISBN-13 objects # and it uses the hyphens, so call as_string with an empty anon array diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/urn/oid.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/urn/oid.pm index 040b5ca9ce..5ba279f68c 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/urn/oid.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/urn/oid.pm @@ -3,7 +3,7 @@ package URI::urn::oid; # RFC 2061 use strict; use warnings; -our $VERSION = '5.07'; +our $VERSION = '5.10'; use parent 'URI::urn'; -- cgit v1.2.3