diff options
Diffstat (limited to 'Master/tlpkg/tlperl/site/lib/URI')
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'; |