summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/site/lib/URI
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/site/lib/URI')
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/Escape.pm1
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/IRI.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/QueryParam.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/Split.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/_foreign.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/_generic.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/_idna.pm4
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/_ldap.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/_login.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/_punycode.pm70
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/_query.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/_segment.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/_server.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/_userpass.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/data.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/file/Base.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/file/FAT.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/file/Mac.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/file/OS2.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/file/QNX.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/file/Unix.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/file/Win32.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/ftp.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/gopher.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/http.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/https.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/ldap.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/ldapi.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/ldaps.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/mailto.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/mms.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/news.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/nntp.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/pop.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/rlogin.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/rsync.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/rtsp.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/rtspu.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/sftp.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/sip.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/sips.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/snews.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/ssh.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/telnet.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/tn3270.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/urn.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/urn/isbn.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/URI/urn/oid.pm2
48 files changed, 91 insertions, 74 deletions
diff --git a/Master/tlpkg/tlperl/site/lib/URI/Escape.pm b/Master/tlpkg/tlperl/site/lib/URI/Escape.pm
index 30f2b312755..f9392d446fe 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/Escape.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/Escape.pm
@@ -181,6 +181,7 @@ sub _fail_hi {
sub uri_escape_utf8 {
my $text = shift;
+ return undef unless defined $text;
utf8::encode($text);
return uri_escape($text, @_);
}
diff --git a/Master/tlpkg/tlperl/site/lib/URI/IRI.pm b/Master/tlpkg/tlperl/site/lib/URI/IRI.pm
index 3dadd39f3f0..df68c386757 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/IRI.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/IRI.pm
@@ -8,7 +8,7 @@ use URI ();
use overload '""' => sub { shift->as_string };
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
sub new {
diff --git a/Master/tlpkg/tlperl/site/lib/URI/QueryParam.pm b/Master/tlpkg/tlperl/site/lib/URI/QueryParam.pm
index 8f1448f021e..1408aadba97 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/QueryParam.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/QueryParam.pm
@@ -3,7 +3,7 @@ package URI::QueryParam;
use strict;
use warnings;
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
sub URI::_query::query_param {
diff --git a/Master/tlpkg/tlperl/site/lib/URI/Split.pm b/Master/tlpkg/tlperl/site/lib/URI/Split.pm
index d66caf67c37..a44d3a8d10a 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/Split.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/Split.pm
@@ -3,7 +3,7 @@ package URI::Split;
use strict;
use warnings;
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
use Exporter 5.57 'import';
diff --git a/Master/tlpkg/tlperl/site/lib/URI/_foreign.pm b/Master/tlpkg/tlperl/site/lib/URI/_foreign.pm
index fbee23e05ab..a500a3659c0 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/_foreign.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/_foreign.pm
@@ -5,7 +5,7 @@ use warnings;
use parent 'URI::_generic';
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
1;
diff --git a/Master/tlpkg/tlperl/site/lib/URI/_generic.pm b/Master/tlpkg/tlperl/site/lib/URI/_generic.pm
index 7f8476006ec..f749cc27e3a 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/_generic.pm
+++ b/Master/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 = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
my $ACHAR = $URI::uric; $ACHAR =~ s,\\[/?],,g;
diff --git a/Master/tlpkg/tlperl/site/lib/URI/_idna.pm b/Master/tlpkg/tlperl/site/lib/URI/_idna.pm
index 2ec600b9503..e4206158946 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/_idna.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/_idna.pm
@@ -9,11 +9,11 @@ use warnings;
use URI::_punycode qw(encode_punycode decode_punycode);
use Carp qw(croak);
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
BEGIN {
- *URI::_idna::_ENV_::JOIN_LEAKS_UTF8_FLAGS = $] < 5.008_003
+ *URI::_idna::_ENV_::JOIN_LEAKS_UTF8_FLAGS = "$]" < 5.008_003
? sub () { 1 }
: sub () { 0 }
;
diff --git a/Master/tlpkg/tlperl/site/lib/URI/_ldap.pm b/Master/tlpkg/tlperl/site/lib/URI/_ldap.pm
index 42e559d0bda..18075c527c0 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/_ldap.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/_ldap.pm
@@ -7,7 +7,7 @@ package URI::_ldap;
use strict;
use warnings;
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
use URI::Escape qw(uri_unescape);
diff --git a/Master/tlpkg/tlperl/site/lib/URI/_login.pm b/Master/tlpkg/tlperl/site/lib/URI/_login.pm
index 331fdc1e1b9..b4a86b01d4c 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/_login.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/_login.pm
@@ -5,7 +5,7 @@ use warnings;
use parent qw(URI::_server URI::_userpass);
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
# Generic terminal logins. This is used as a base class for 'telnet',
diff --git a/Master/tlpkg/tlperl/site/lib/URI/_punycode.pm b/Master/tlpkg/tlperl/site/lib/URI/_punycode.pm
index 1ade17b2922..ca5ebf24857 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/_punycode.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/_punycode.pm
@@ -3,7 +3,7 @@ package URI::_punycode;
use strict;
use warnings;
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
use Exporter 'import';
@@ -147,58 +147,72 @@ sub min {
1;
__END__
+=encoding utf8
+
=head1 NAME
URI::_punycode - encodes Unicode string in Punycode
=head1 SYNOPSIS
- use URI::_punycode;
- $punycode = encode_punycode($unicode);
- $unicode = decode_punycode($punycode);
+ use strict;
+ use warnings;
+ use utf8;
-=head1 DESCRIPTION
+ use URI::_punycode qw(encode_punycode decode_punycode);
-URI::_punycode is a module to encode / decode Unicode strings into
-Punycode, an efficient encoding of Unicode for use with IDNA.
+ # encode a unicode string
+ my $punycode = encode_punycode('http://☃.net'); # http://.net-xc8g
+ $punycode = encode_punycode('bücher'); # bcher-kva
+ $punycode = encode_punycode('他们为什么不说中文'); # ihqwcrb4cv8a8dqg056pqjye
-This module requires Perl 5.6.0 or over to handle UTF8 flagged Unicode
-strings.
+ # decode a punycode string back into a unicode string
+ my $unicode = decode_punycode('http://.net-xc8g'); # http://☃.net
+ $unicode = decode_punycode('bcher-kva'); # bücher
+ $unicode = decode_punycode('ihqwcrb4cv8a8dqg056pqjye'); # 他们为什么不说中文
-=head1 FUNCTIONS
+=head1 DESCRIPTION
-This module exports following functions by default.
+L<URI::_punycode> is a module to encode / decode Unicode strings into
+L<Punycode|https://tools.ietf.org/html/rfc3492>, an efficient
+encoding of Unicode for use with L<IDNA|https://tools.ietf.org/html/rfc5890>.
-=over 4
+=head1 FUNCTIONS
+
+All functions throw exceptions on failure. You can C<catch> them with
+L<Syntax::Keyword::Try> or L<Try::Tiny>. The following functions are exported
+by default.
-=item encode_punycode
+=head2 encode_punycode
- $punycode = encode_punycode($unicode);
+ my $punycode = encode_punycode('http://☃.net'); # http://.net-xc8g
+ $punycode = encode_punycode('bücher'); # bcher-kva
+ $punycode = encode_punycode('他们为什么不说中文') # ihqwcrb4cv8a8dqg056pqjye
-takes Unicode string (UTF8-flagged variable) and returns Punycode
+Takes a Unicode string (UTF8-flagged variable) and returns a Punycode
encoding for it.
-=item decode_punycode
+=head2 decode_punycode
- $unicode = decode_punycode($punycode)
+ my $unicode = decode_punycode('http://.net-xc8g'); # http://☃.net
+ $unicode = decode_punycode('bcher-kva'); # bücher
+ $unicode = decode_punycode('ihqwcrb4cv8a8dqg056pqjye'); # 他们为什么不说中文
-takes Punycode encoding and returns original Unicode string.
+Takes a Punycode encoding and returns original Unicode string.
-=back
+=head1 AUTHOR
-These functions throw exceptions on failure. You can catch 'em via
-C<eval>.
+Tatsuhiko Miyagawa <F<miyagawa@bulknews.net>> is the author of
+L<IDNA::Punycode> which was the basis for this module.
-=head1 AUTHOR
+=head1 SEE ALSO
+
+L<IDNA::Punycode>, L<RFC 3492|https://tools.ietf.org/html/rfc3492>,
+L<RFC 5891|https://tools.ietf.org/html/rfc5891>
-Tatsuhiko Miyagawa E<lt>miyagawa@bulknews.netE<gt> is the author of
-IDNA::Punycode v0.02 which was the basis for this module.
+=head1 COPYRIGHT AND LICENSE
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
-=head1 SEE ALSO
-
-L<IDNA::Punycode>, RFC 3492
-
=cut
diff --git a/Master/tlpkg/tlperl/site/lib/URI/_query.pm b/Master/tlpkg/tlperl/site/lib/URI/_query.pm
index 06162638572..94cb71b59f6 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/_query.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/_query.pm
@@ -6,7 +6,7 @@ use warnings;
use URI ();
use URI::Escape qw(uri_unescape);
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
sub query
diff --git a/Master/tlpkg/tlperl/site/lib/URI/_segment.pm b/Master/tlpkg/tlperl/site/lib/URI/_segment.pm
index 9e39faa989e..5a0b1a683db 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/_segment.pm
+++ b/Master/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 = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
sub new
diff --git a/Master/tlpkg/tlperl/site/lib/URI/_server.pm b/Master/tlpkg/tlperl/site/lib/URI/_server.pm
index 055bb49f716..7fcdaaae31d 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/_server.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/_server.pm
@@ -7,7 +7,7 @@ use parent 'URI::_generic';
use URI::Escape qw(uri_unescape);
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
sub _uric_escape {
diff --git a/Master/tlpkg/tlperl/site/lib/URI/_userpass.pm b/Master/tlpkg/tlperl/site/lib/URI/_userpass.pm
index 1e48c0288d2..22b0daa4f73 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/_userpass.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/_userpass.pm
@@ -5,7 +5,7 @@ use warnings;
use URI::Escape qw(uri_unescape);
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
sub user
diff --git a/Master/tlpkg/tlperl/site/lib/URI/data.pm b/Master/tlpkg/tlperl/site/lib/URI/data.pm
index 38ee7cf98e6..452dc982db3 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/data.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/data.pm
@@ -5,7 +5,7 @@ use warnings;
use parent 'URI';
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
use MIME::Base64 qw(encode_base64 decode_base64);
diff --git a/Master/tlpkg/tlperl/site/lib/URI/file/Base.pm b/Master/tlpkg/tlperl/site/lib/URI/file/Base.pm
index cbb0970c273..dc1daf81d20 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/file/Base.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/file/Base.pm
@@ -5,7 +5,7 @@ use warnings;
use URI::Escape qw();
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
sub new
diff --git a/Master/tlpkg/tlperl/site/lib/URI/file/FAT.pm b/Master/tlpkg/tlperl/site/lib/URI/file/FAT.pm
index 081d94e2166..07538c08ad4 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/file/FAT.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/file/FAT.pm
@@ -5,7 +5,7 @@ use warnings;
use parent 'URI::file::Win32';
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
sub fix_path
diff --git a/Master/tlpkg/tlperl/site/lib/URI/file/Mac.pm b/Master/tlpkg/tlperl/site/lib/URI/file/Mac.pm
index f9eda0a8190..fb634c95f19 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/file/Mac.pm
+++ b/Master/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 = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
sub _file_extract_path
diff --git a/Master/tlpkg/tlperl/site/lib/URI/file/OS2.pm b/Master/tlpkg/tlperl/site/lib/URI/file/OS2.pm
index a089491cb09..c290d40a057 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/file/OS2.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/file/OS2.pm
@@ -5,7 +5,7 @@ use warnings;
use parent 'URI::file::Win32';
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
# The Win32 version translates k:/foo to file://k:/foo (?!)
diff --git a/Master/tlpkg/tlperl/site/lib/URI/file/QNX.pm b/Master/tlpkg/tlperl/site/lib/URI/file/QNX.pm
index 2853ac0e0bc..5164d3bfa59 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/file/QNX.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/file/QNX.pm
@@ -5,7 +5,7 @@ use warnings;
use parent 'URI::file::Unix';
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
sub _file_extract_path
diff --git a/Master/tlpkg/tlperl/site/lib/URI/file/Unix.pm b/Master/tlpkg/tlperl/site/lib/URI/file/Unix.pm
index e75887b0227..42d1a51862a 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/file/Unix.pm
+++ b/Master/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 = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
sub _file_extract_path
diff --git a/Master/tlpkg/tlperl/site/lib/URI/file/Win32.pm b/Master/tlpkg/tlperl/site/lib/URI/file/Win32.pm
index eac920f9ea3..b9697f91286 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/file/Win32.pm
+++ b/Master/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 = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
sub _file_extract_authority
diff --git a/Master/tlpkg/tlperl/site/lib/URI/ftp.pm b/Master/tlpkg/tlperl/site/lib/URI/ftp.pm
index c7dd7999697..451af0a5ee4 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/ftp.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/ftp.pm
@@ -3,7 +3,7 @@ package URI::ftp;
use strict;
use warnings;
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
use parent qw(URI::_server URI::_userpass);
diff --git a/Master/tlpkg/tlperl/site/lib/URI/gopher.pm b/Master/tlpkg/tlperl/site/lib/URI/gopher.pm
index 03a1d6c0004..02f4334a194 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/gopher.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/gopher.pm
@@ -3,7 +3,7 @@ package URI::gopher; # <draft-murali-url-gopher>, Dec 4, 1996
use strict;
use warnings;
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
use parent 'URI::_server';
diff --git a/Master/tlpkg/tlperl/site/lib/URI/http.pm b/Master/tlpkg/tlperl/site/lib/URI/http.pm
index 3d8eaf5a911..85650607d05 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/http.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/http.pm
@@ -3,7 +3,7 @@ package URI::http;
use strict;
use warnings;
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
use parent 'URI::_server';
diff --git a/Master/tlpkg/tlperl/site/lib/URI/https.pm b/Master/tlpkg/tlperl/site/lib/URI/https.pm
index 9dbb02bb2ce..1e80fe86587 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/https.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/https.pm
@@ -3,7 +3,7 @@ package URI::https;
use strict;
use warnings;
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
use parent 'URI::http';
diff --git a/Master/tlpkg/tlperl/site/lib/URI/ldap.pm b/Master/tlpkg/tlperl/site/lib/URI/ldap.pm
index b5f9a07a917..a8b10ec6249 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/ldap.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/ldap.pm
@@ -7,7 +7,7 @@ package URI::ldap;
use strict;
use warnings;
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
use parent qw(URI::_ldap URI::_server);
diff --git a/Master/tlpkg/tlperl/site/lib/URI/ldapi.pm b/Master/tlpkg/tlperl/site/lib/URI/ldapi.pm
index 2e47a5e35fe..6a0cabef7ce 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/ldapi.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/ldapi.pm
@@ -3,7 +3,7 @@ package URI::ldapi;
use strict;
use warnings;
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
use parent qw(URI::_ldap URI::_generic);
diff --git a/Master/tlpkg/tlperl/site/lib/URI/ldaps.pm b/Master/tlpkg/tlperl/site/lib/URI/ldaps.pm
index 50db6d270b7..371b90e6ba1 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/ldaps.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/ldaps.pm
@@ -3,7 +3,7 @@ package URI::ldaps;
use strict;
use warnings;
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
use parent 'URI::ldap';
diff --git a/Master/tlpkg/tlperl/site/lib/URI/mailto.pm b/Master/tlpkg/tlperl/site/lib/URI/mailto.pm
index b9c4e35f541..33381fdeceb 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/mailto.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/mailto.pm
@@ -3,7 +3,7 @@ package URI::mailto; # RFC 2368
use strict;
use warnings;
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
use parent qw(URI URI::_query);
diff --git a/Master/tlpkg/tlperl/site/lib/URI/mms.pm b/Master/tlpkg/tlperl/site/lib/URI/mms.pm
index 9b745ab054b..cb7b623707d 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/mms.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/mms.pm
@@ -3,7 +3,7 @@ package URI::mms;
use strict;
use warnings;
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
use parent 'URI::http';
diff --git a/Master/tlpkg/tlperl/site/lib/URI/news.pm b/Master/tlpkg/tlperl/site/lib/URI/news.pm
index c3a32cd603c..bdf003bec1c 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/news.pm
+++ b/Master/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 = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
use parent 'URI::_server';
diff --git a/Master/tlpkg/tlperl/site/lib/URI/nntp.pm b/Master/tlpkg/tlperl/site/lib/URI/nntp.pm
index 57c9fcfe0d5..e1a55b6e632 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/nntp.pm
+++ b/Master/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 = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
use parent 'URI::news';
diff --git a/Master/tlpkg/tlperl/site/lib/URI/pop.pm b/Master/tlpkg/tlperl/site/lib/URI/pop.pm
index 3162a9db9ba..237d6cd4c45 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/pop.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/pop.pm
@@ -3,7 +3,7 @@ package URI::pop; # RFC 2384
use strict;
use warnings;
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
use parent 'URI::_server';
diff --git a/Master/tlpkg/tlperl/site/lib/URI/rlogin.pm b/Master/tlpkg/tlperl/site/lib/URI/rlogin.pm
index e740ca257b5..8d589d7c90d 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/rlogin.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/rlogin.pm
@@ -3,7 +3,7 @@ package URI::rlogin;
use strict;
use warnings;
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
use parent 'URI::_login';
diff --git a/Master/tlpkg/tlperl/site/lib/URI/rsync.pm b/Master/tlpkg/tlperl/site/lib/URI/rsync.pm
index 16f3a0c5577..1ffae852c90 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/rsync.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/rsync.pm
@@ -5,7 +5,7 @@ package URI::rsync; # http://rsync.samba.org/
use strict;
use warnings;
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
use parent qw(URI::_server URI::_userpass);
diff --git a/Master/tlpkg/tlperl/site/lib/URI/rtsp.pm b/Master/tlpkg/tlperl/site/lib/URI/rtsp.pm
index 21cb24f09bb..2c2b2e66c50 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/rtsp.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/rtsp.pm
@@ -3,7 +3,7 @@ package URI::rtsp;
use strict;
use warnings;
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
use parent 'URI::http';
diff --git a/Master/tlpkg/tlperl/site/lib/URI/rtspu.pm b/Master/tlpkg/tlperl/site/lib/URI/rtspu.pm
index 9e61ecbf335..e285776c013 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/rtspu.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/rtspu.pm
@@ -3,7 +3,7 @@ package URI::rtspu;
use strict;
use warnings;
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
use parent 'URI::rtsp';
diff --git a/Master/tlpkg/tlperl/site/lib/URI/sftp.pm b/Master/tlpkg/tlperl/site/lib/URI/sftp.pm
index 2d271fa97d6..293476d7888 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/sftp.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/sftp.pm
@@ -5,7 +5,7 @@ use warnings;
use parent 'URI::ssh';
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
1;
diff --git a/Master/tlpkg/tlperl/site/lib/URI/sip.pm b/Master/tlpkg/tlperl/site/lib/URI/sip.pm
index a1574aa1580..517f7049e1d 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/sip.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/sip.pm
@@ -14,7 +14,7 @@ use parent qw(URI::_server URI::_userpass);
use URI::Escape qw(uri_unescape);
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
sub default_port { 5060 }
diff --git a/Master/tlpkg/tlperl/site/lib/URI/sips.pm b/Master/tlpkg/tlperl/site/lib/URI/sips.pm
index fc782e4a75f..f89f116654c 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/sips.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/sips.pm
@@ -3,7 +3,7 @@ package URI::sips;
use strict;
use warnings;
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
use parent 'URI::sip';
diff --git a/Master/tlpkg/tlperl/site/lib/URI/snews.pm b/Master/tlpkg/tlperl/site/lib/URI/snews.pm
index 1865c2fb548..546e58c9960 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/snews.pm
+++ b/Master/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 = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
use parent 'URI::news';
diff --git a/Master/tlpkg/tlperl/site/lib/URI/ssh.pm b/Master/tlpkg/tlperl/site/lib/URI/ssh.pm
index d73448bb2ba..8fb25eb689a 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/ssh.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/ssh.pm
@@ -3,7 +3,7 @@ package URI::ssh;
use strict;
use warnings;
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
use parent 'URI::_login';
diff --git a/Master/tlpkg/tlperl/site/lib/URI/telnet.pm b/Master/tlpkg/tlperl/site/lib/URI/telnet.pm
index 9f578f68548..82daef344c9 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/telnet.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/telnet.pm
@@ -3,7 +3,7 @@ package URI::telnet;
use strict;
use warnings;
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
use parent 'URI::_login';
diff --git a/Master/tlpkg/tlperl/site/lib/URI/tn3270.pm b/Master/tlpkg/tlperl/site/lib/URI/tn3270.pm
index 232460017a8..f0e348314e6 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/tn3270.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/tn3270.pm
@@ -3,7 +3,7 @@ package URI::tn3270;
use strict;
use warnings;
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
use parent 'URI::_login';
diff --git a/Master/tlpkg/tlperl/site/lib/URI/urn.pm b/Master/tlpkg/tlperl/site/lib/URI/urn.pm
index 679d205e07e..659b2656621 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/urn.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/urn.pm
@@ -3,7 +3,7 @@ package URI::urn; # RFC 2141
use strict;
use warnings;
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
use parent 'URI';
diff --git a/Master/tlpkg/tlperl/site/lib/URI/urn/isbn.pm b/Master/tlpkg/tlperl/site/lib/URI/urn/isbn.pm
index b335044b885..c8469535c4f 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/urn/isbn.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/urn/isbn.pm
@@ -3,6 +3,8 @@ package URI::urn::isbn; # RFC 3187
use strict;
use warnings;
+our $VERSION = '1.73';
+
use parent 'URI::urn';
use Carp qw(carp);
diff --git a/Master/tlpkg/tlperl/site/lib/URI/urn/oid.pm b/Master/tlpkg/tlperl/site/lib/URI/urn/oid.pm
index 7d38bc9f73e..010fcf0d4bf 100644
--- a/Master/tlpkg/tlperl/site/lib/URI/urn/oid.pm
+++ b/Master/tlpkg/tlperl/site/lib/URI/urn/oid.pm
@@ -3,7 +3,7 @@ package URI::urn::oid; # RFC 2061
use strict;
use warnings;
-our $VERSION = '1.71';
+our $VERSION = '1.73';
$VERSION = eval $VERSION;
use parent 'URI::urn';