diff options
Diffstat (limited to 'lib/URI')
46 files changed, 92 insertions, 46 deletions
diff --git a/lib/URI/IRI.pm b/lib/URI/IRI.pm index 8906399..73cbe45 100644 --- a/lib/URI/IRI.pm +++ b/lib/URI/IRI.pm @@ -8,7 +8,8 @@ use URI (); use overload '""' => sub { shift->as_string }; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; sub new { my($class, $uri, $scheme) = @_; diff --git a/lib/URI/QueryParam.pm b/lib/URI/QueryParam.pm index 7866f79..95fc2a4 100644 --- a/lib/URI/QueryParam.pm +++ b/lib/URI/QueryParam.pm @@ -3,7 +3,8 @@ package URI::QueryParam; use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; sub URI::_query::query_param { my $self = shift; diff --git a/lib/URI/Split.pm b/lib/URI/Split.pm index 6762b3e..85ed4fe 100644 --- a/lib/URI/Split.pm +++ b/lib/URI/Split.pm @@ -3,7 +3,8 @@ package URI::Split; use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; use Exporter 5.57 'import'; our @EXPORT_OK = qw(uri_split uri_join); diff --git a/lib/URI/_foreign.pm b/lib/URI/_foreign.pm index cad5c8d..c7e9b6e 100644 --- a/lib/URI/_foreign.pm +++ b/lib/URI/_foreign.pm @@ -5,6 +5,7 @@ use warnings; use parent 'URI::_generic'; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; 1; diff --git a/lib/URI/_generic.pm b/lib/URI/_generic.pm index 42f6609..dbdf767 100644 --- a/lib/URI/_generic.pm +++ b/lib/URI/_generic.pm @@ -8,7 +8,8 @@ use parent qw(URI URI::_query); use URI::Escape qw(uri_unescape); use Carp (); -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; my $ACHAR = $URI::uric; $ACHAR =~ s,\\[/?],,g; my $PCHAR = $URI::uric; $PCHAR =~ s,\\[?],,g; diff --git a/lib/URI/_idna.pm b/lib/URI/_idna.pm index ce58db8..79f75fd 100644 --- a/lib/URI/_idna.pm +++ b/lib/URI/_idna.pm @@ -9,7 +9,8 @@ use warnings; use URI::_punycode qw(encode_punycode decode_punycode); use Carp qw(croak); -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; BEGIN { *URI::_idna::_ENV_::JOIN_LEAKS_UTF8_FLAGS = $] < 5.008_003 diff --git a/lib/URI/_ldap.pm b/lib/URI/_ldap.pm index 02f468c..ecc292e 100644 --- a/lib/URI/_ldap.pm +++ b/lib/URI/_ldap.pm @@ -7,7 +7,8 @@ package URI::_ldap; use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; use URI::Escape qw(uri_unescape); diff --git a/lib/URI/_login.pm b/lib/URI/_login.pm index ef58e24..a428e32 100644 --- a/lib/URI/_login.pm +++ b/lib/URI/_login.pm @@ -5,7 +5,8 @@ use warnings; use parent qw(URI::_server URI::_userpass); -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; # Generic terminal logins. This is used as a base class for 'telnet', # 'tn3270', and 'rlogin' URL schemes. diff --git a/lib/URI/_punycode.pm b/lib/URI/_punycode.pm index f54eee5..3ebcf09 100644 --- a/lib/URI/_punycode.pm +++ b/lib/URI/_punycode.pm @@ -3,7 +3,8 @@ package URI::_punycode; use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; use Exporter 'import'; our @EXPORT = qw(encode_punycode decode_punycode); diff --git a/lib/URI/_query.pm b/lib/URI/_query.pm index a5976a3..462bbad 100644 --- a/lib/URI/_query.pm +++ b/lib/URI/_query.pm @@ -6,7 +6,8 @@ use warnings; use URI (); use URI::Escape qw(uri_unescape); -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; sub query { diff --git a/lib/URI/_segment.pm b/lib/URI/_segment.pm index 3b27289..346a776 100644 --- a/lib/URI/_segment.pm +++ b/lib/URI/_segment.pm @@ -11,7 +11,8 @@ use URI::Escape qw(uri_unescape); use overload '""' => sub { $_[0]->[0] }, fallback => 1; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; sub new { diff --git a/lib/URI/_server.pm b/lib/URI/_server.pm index 4df158e..3f266ea 100644 --- a/lib/URI/_server.pm +++ b/lib/URI/_server.pm @@ -7,7 +7,8 @@ use parent 'URI::_generic'; use URI::Escape qw(uri_unescape); -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; sub _uric_escape { my($class, $str) = @_; diff --git a/lib/URI/_userpass.pm b/lib/URI/_userpass.pm index 6d260c0..867f801 100644 --- a/lib/URI/_userpass.pm +++ b/lib/URI/_userpass.pm @@ -5,7 +5,8 @@ use warnings; use URI::Escape qw(uri_unescape); -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; sub user { diff --git a/lib/URI/data.pm b/lib/URI/data.pm index 7848502..5677271 100644 --- a/lib/URI/data.pm +++ b/lib/URI/data.pm @@ -5,7 +5,8 @@ use warnings; use parent 'URI'; -our $VERSION = '1.69'; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; use MIME::Base64 qw(encode_base64 decode_base64); use URI::Escape qw(uri_unescape); diff --git a/lib/URI/file/Base.pm b/lib/URI/file/Base.pm index ebf24aa..8f3cdac 100644 --- a/lib/URI/file/Base.pm +++ b/lib/URI/file/Base.pm @@ -5,7 +5,8 @@ use warnings; use URI::Escape qw(); -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; sub new { diff --git a/lib/URI/file/FAT.pm b/lib/URI/file/FAT.pm index 2d78275..2c5eb1c 100644 --- a/lib/URI/file/FAT.pm +++ b/lib/URI/file/FAT.pm @@ -5,7 +5,8 @@ use warnings; use parent 'URI::file::Win32'; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; sub fix_path { diff --git a/lib/URI/file/Mac.pm b/lib/URI/file/Mac.pm index 4d8e766..f05f9d3 100644 --- a/lib/URI/file/Mac.pm +++ b/lib/URI/file/Mac.pm @@ -7,7 +7,8 @@ use parent 'URI::file::Base'; use URI::Escape qw(uri_unescape); -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; sub _file_extract_path { diff --git a/lib/URI/file/OS2.pm b/lib/URI/file/OS2.pm index f451f9e..1c0639b 100644 --- a/lib/URI/file/OS2.pm +++ b/lib/URI/file/OS2.pm @@ -5,7 +5,8 @@ use warnings; use parent 'URI::file::Win32'; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; # The Win32 version translates k:/foo to file://k:/foo (?!) # We add an empty host diff --git a/lib/URI/file/QNX.pm b/lib/URI/file/QNX.pm index 1d725e4..4c8c9e6 100644 --- a/lib/URI/file/QNX.pm +++ b/lib/URI/file/QNX.pm @@ -5,7 +5,8 @@ use warnings; use parent 'URI::file::Unix'; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; sub _file_extract_path { diff --git a/lib/URI/file/Unix.pm b/lib/URI/file/Unix.pm index b06acc7..a6268b3 100644 --- a/lib/URI/file/Unix.pm +++ b/lib/URI/file/Unix.pm @@ -7,7 +7,8 @@ use parent 'URI::file::Base'; use URI::Escape qw(uri_unescape); -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; sub _file_extract_path { diff --git a/lib/URI/file/Win32.pm b/lib/URI/file/Win32.pm index f00b9c9..52c5bc8 100644 --- a/lib/URI/file/Win32.pm +++ b/lib/URI/file/Win32.pm @@ -7,7 +7,8 @@ use parent 'URI::file::Base'; use URI::Escape qw(uri_unescape); -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; sub _file_extract_authority { diff --git a/lib/URI/ftp.pm b/lib/URI/ftp.pm index 7d6848f..4f7a684 100644 --- a/lib/URI/ftp.pm +++ b/lib/URI/ftp.pm @@ -3,7 +3,8 @@ package URI::ftp; use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; use parent qw(URI::_server URI::_userpass); diff --git a/lib/URI/gopher.pm b/lib/URI/gopher.pm index d9f7eb5..728160e 100644 --- a/lib/URI/gopher.pm +++ b/lib/URI/gopher.pm @@ -3,7 +3,8 @@ package URI::gopher; # <draft-murali-url-gopher>, Dec 4, 1996 use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; use parent 'URI::_server'; diff --git a/lib/URI/http.pm b/lib/URI/http.pm index a7e921a..24ca44f 100644 --- a/lib/URI/http.pm +++ b/lib/URI/http.pm @@ -3,7 +3,8 @@ package URI::http; use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; use parent 'URI::_server'; diff --git a/lib/URI/https.pm b/lib/URI/https.pm index e346b30..c982883 100644 --- a/lib/URI/https.pm +++ b/lib/URI/https.pm @@ -3,7 +3,8 @@ package URI::https; use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; use parent 'URI::http'; diff --git a/lib/URI/ldap.pm b/lib/URI/ldap.pm index 60e7f2b..4ca7a88 100644 --- a/lib/URI/ldap.pm +++ b/lib/URI/ldap.pm @@ -7,7 +7,8 @@ package URI::ldap; use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; use parent qw(URI::_ldap URI::_server); diff --git a/lib/URI/ldapi.pm b/lib/URI/ldapi.pm index 12a0b08..198f640 100644 --- a/lib/URI/ldapi.pm +++ b/lib/URI/ldapi.pm @@ -3,7 +3,8 @@ package URI::ldapi; use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; use parent qw(URI::_ldap URI::_generic); diff --git a/lib/URI/ldaps.pm b/lib/URI/ldaps.pm index 80a96d3..7e4419f 100644 --- a/lib/URI/ldaps.pm +++ b/lib/URI/ldaps.pm @@ -3,7 +3,8 @@ package URI::ldaps; use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; use parent 'URI::ldap'; diff --git a/lib/URI/mailto.pm b/lib/URI/mailto.pm index 0e94463..b12bf32 100644 --- a/lib/URI/mailto.pm +++ b/lib/URI/mailto.pm @@ -3,7 +3,8 @@ package URI::mailto; # RFC 2368 use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; use parent qw(URI URI::_query); diff --git a/lib/URI/mms.pm b/lib/URI/mms.pm index c9af387..59776d4 100644 --- a/lib/URI/mms.pm +++ b/lib/URI/mms.pm @@ -3,7 +3,8 @@ package URI::mms; use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; use parent 'URI::http'; diff --git a/lib/URI/news.pm b/lib/URI/news.pm index 77e2c18..c07f878 100644 --- a/lib/URI/news.pm +++ b/lib/URI/news.pm @@ -3,7 +3,8 @@ package URI::news; # draft-gilman-news-url-01 use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; use parent 'URI::_server'; diff --git a/lib/URI/nntp.pm b/lib/URI/nntp.pm index 73dc629..173adf4 100644 --- a/lib/URI/nntp.pm +++ b/lib/URI/nntp.pm @@ -3,7 +3,8 @@ package URI::nntp; # draft-gilman-news-url-01 use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; use parent 'URI::news'; diff --git a/lib/URI/pop.pm b/lib/URI/pop.pm index cfc5e11..33f8fb2 100644 --- a/lib/URI/pop.pm +++ b/lib/URI/pop.pm @@ -3,7 +3,8 @@ package URI::pop; # RFC 2384 use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; use parent 'URI::_server'; diff --git a/lib/URI/rlogin.pm b/lib/URI/rlogin.pm index 5ed141b..ce7eeb7 100644 --- a/lib/URI/rlogin.pm +++ b/lib/URI/rlogin.pm @@ -3,7 +3,8 @@ package URI::rlogin; use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; use parent 'URI::_login'; diff --git a/lib/URI/rsync.pm b/lib/URI/rsync.pm index 9cb649a..7248360 100644 --- a/lib/URI/rsync.pm +++ b/lib/URI/rsync.pm @@ -5,7 +5,8 @@ package URI::rsync; # http://rsync.samba.org/ use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; use parent qw(URI::_server URI::_userpass); diff --git a/lib/URI/rtsp.pm b/lib/URI/rtsp.pm index fa82efc..895648a 100644 --- a/lib/URI/rtsp.pm +++ b/lib/URI/rtsp.pm @@ -3,7 +3,8 @@ package URI::rtsp; use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; use parent 'URI::http'; diff --git a/lib/URI/rtspu.pm b/lib/URI/rtspu.pm index b91fb80..3d33d67 100644 --- a/lib/URI/rtspu.pm +++ b/lib/URI/rtspu.pm @@ -3,7 +3,8 @@ package URI::rtspu; use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; use parent 'URI::rtsp'; diff --git a/lib/URI/sftp.pm b/lib/URI/sftp.pm index 03bf9b3..6ac7f0f 100644 --- a/lib/URI/sftp.pm +++ b/lib/URI/sftp.pm @@ -5,6 +5,7 @@ use warnings; use parent 'URI::ssh'; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; 1; diff --git a/lib/URI/sip.pm b/lib/URI/sip.pm index 7b27a9f..58e871b 100644 --- a/lib/URI/sip.pm +++ b/lib/URI/sip.pm @@ -14,7 +14,8 @@ use parent qw(URI::_server URI::_userpass); use URI::Escape qw(uri_unescape); -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; sub default_port { 5060 } diff --git a/lib/URI/sips.pm b/lib/URI/sips.pm index 767067f..065cad2 100644 --- a/lib/URI/sips.pm +++ b/lib/URI/sips.pm @@ -3,7 +3,8 @@ package URI::sips; use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; use parent 'URI::sip'; diff --git a/lib/URI/snews.pm b/lib/URI/snews.pm index de1d515..0da4ee5 100644 --- a/lib/URI/snews.pm +++ b/lib/URI/snews.pm @@ -3,7 +3,8 @@ package URI::snews; # draft-gilman-news-url-01 use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; use parent 'URI::news'; diff --git a/lib/URI/ssh.pm b/lib/URI/ssh.pm index 396c7a7..197b506 100644 --- a/lib/URI/ssh.pm +++ b/lib/URI/ssh.pm @@ -3,7 +3,8 @@ package URI::ssh; use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; use parent 'URI::_login'; diff --git a/lib/URI/telnet.pm b/lib/URI/telnet.pm index b86d9aa..41daf5c 100644 --- a/lib/URI/telnet.pm +++ b/lib/URI/telnet.pm @@ -3,7 +3,8 @@ package URI::telnet; use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; use parent 'URI::_login'; diff --git a/lib/URI/tn3270.pm b/lib/URI/tn3270.pm index fb60acc..595d240 100644 --- a/lib/URI/tn3270.pm +++ b/lib/URI/tn3270.pm @@ -3,7 +3,8 @@ package URI::tn3270; use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; use parent 'URI::_login'; diff --git a/lib/URI/urn.pm b/lib/URI/urn.pm index 941940a..5977eab 100644 --- a/lib/URI/urn.pm +++ b/lib/URI/urn.pm @@ -3,7 +3,8 @@ package URI::urn; # RFC 2141 use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; use parent 'URI'; diff --git a/lib/URI/urn/oid.pm b/lib/URI/urn/oid.pm index ceb8322..4084354 100644 --- a/lib/URI/urn/oid.pm +++ b/lib/URI/urn/oid.pm @@ -3,7 +3,8 @@ package URI::urn::oid; # RFC 2061 use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.70_001'; +$VERSION = eval $VERSION; use parent 'URI::urn'; |