Hello community, here is the log from the commit of package perl-URI for openSUSE:Factory checked in at 2016-01-17 09:22:56 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-URI (Old) and /work/SRC/openSUSE:Factory/.perl-URI.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-URI" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-URI/perl-URI.changes 2015-07-28 11:42:28.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-URI.new/perl-URI.changes 2016-01-17 09:22:57.000000000 +0100 @@ -1,0 +2,25 @@ +Wed Jan 13 10:38:07 UTC 2016 - [email protected] + +- updated to 1.71 + see /usr/share/doc/packages/perl-URI/Changes + + 2016-01-08 Karen Etheridge <[email protected]> + + Release 1.71 + + No changes since 1.70_001 + + 2015-12-29 Karen Etheridge <[email protected]> + + Release 1.70_001 + + Kaitlyn Parkhurst: + + - Localize $@ when attempting to load URI subclasses (PR#30) + + Karen Etheridge: + + - speed up construction time by not attempting to load the same + non-existent URI subclass twice + +------------------------------------------------------------------- Old: ---- URI-1.69.tar.gz New: ---- URI-1.71.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-URI.spec ++++++ --- /var/tmp/diff_new_pack.CJonBH/_old 2016-01-17 09:22:58.000000000 +0100 +++ /var/tmp/diff_new_pack.CJonBH/_new 2016-01-17 09:22:58.000000000 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-URI # -# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,7 +17,7 @@ Name: perl-URI -Version: 1.69 +Version: 1.71 Release: 0 %define cpan_name URI Summary: Uniform Resource Identifiers (absolute and relative) @@ -67,7 +67,7 @@ %prep %setup -q -n %{cpan_name}-%{version} -find . -type f -print0 | xargs -0 chmod 644 +find . -type f ! -name \*.pl -print0 | xargs -0 chmod 644 %build %{__perl} Makefile.PL INSTALLDIRS=vendor ++++++ URI-1.69.tar.gz -> URI-1.71.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/Changes new/URI-1.71/Changes --- old/URI-1.69/Changes 2015-07-25 03:04:33.000000000 +0200 +++ new/URI-1.71/Changes 2016-01-08 04:15:02.000000000 +0100 @@ -1,5 +1,25 @@ Revision history for URI +2016-01-08 Karen Etheridge <[email protected]> + + Release 1.71 + + No changes since 1.70_001 + +2015-12-29 Karen Etheridge <[email protected]> + + Release 1.70_001 + + Kaitlyn Parkhurst: + + - Localize $@ when attempting to load URI subclasses (PR#30) + + Karen Etheridge: + + - speed up construction time by not attempting to load the same + non-existent URI subclass twice + + 2015-07-25 Karen Etheridge <[email protected]> Release 1.69 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/MANIFEST new/URI-1.71/MANIFEST --- old/URI-1.69/MANIFEST 2015-07-25 03:06:42.000000000 +0200 +++ new/URI-1.71/MANIFEST 2016-01-08 04:17:19.000000000 +0100 @@ -96,6 +96,7 @@ t/roytest5.html t/rsync.t t/rtsp.t +t/scheme-exceptions.t t/sip.t t/sort-hash-query-form.t t/split.t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/META.json new/URI-1.71/META.json --- old/URI-1.69/META.json 2015-07-25 03:06:42.000000000 +0200 +++ new/URI-1.71/META.json 2016-01-08 04:17:19.000000000 +0100 @@ -4,7 +4,7 @@ "Gisle Aas <[email protected]>" ], "dynamic_config" : 0, - "generated_by" : "ExtUtils::MakeMaker version 7.0525, CPAN::Meta::Converter version 2.150005", + "generated_by" : "ExtUtils::MakeMaker version 7.1103, CPAN::Meta::Converter version 2.150005", "license" : [ "perl_5" ], @@ -59,7 +59,7 @@ "x_IRC" : "irc://irc.perl.org/#lwp", "x_MailingList" : "mailto:[email protected]"; }, - "version" : "1.69", + "version" : "1.71", "x_authority" : "cpan:GAAS", "x_contributors" : [ "Gisle Aas <[email protected]>", @@ -88,4 +88,3 @@ ], "x_serialization_backend" : "JSON::PP version 2.27300" } - diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/META.yml new/URI-1.71/META.yml --- old/URI-1.69/META.yml 2015-07-25 03:06:42.000000000 +0200 +++ new/URI-1.71/META.yml 2016-01-08 04:17:19.000000000 +0100 @@ -8,7 +8,7 @@ configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 0 -generated_by: 'ExtUtils::MakeMaker version 7.0525, CPAN::Meta::Converter version 2.150005' +generated_by: 'ExtUtils::MakeMaker version 7.1103, CPAN::Meta::Converter version 2.150005' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -30,7 +30,7 @@ MailingList: mailto:[email protected] bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=URI repository: https://github.com/libwww-perl/uri.git -version: '1.69' +version: '1.71' x_authority: cpan:GAAS x_contributors: - 'Gisle Aas <[email protected]>' @@ -56,5 +56,4 @@ - 'Kenichi Ishigaki <[email protected]>' - 'Kent Fredric <[email protected]>' - 'Masahiro Honma <[email protected]>' -x_serialization_backend: 'CPAN::Meta::YAML version 0.016' - +x_serialization_backend: 'CPAN::Meta::YAML version 0.017' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/IRI.pm new/URI-1.71/lib/URI/IRI.pm --- old/URI-1.69/lib/URI/IRI.pm 2015-06-26 07:27:37.000000000 +0200 +++ new/URI-1.71/lib/URI/IRI.pm 2016-01-08 04:15:54.000000000 +0100 @@ -8,7 +8,8 @@ use overload '""' => sub { shift->as_string }; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; sub new { my($class, $uri, $scheme) = @_; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/QueryParam.pm new/URI-1.71/lib/URI/QueryParam.pm --- old/URI-1.69/lib/URI/QueryParam.pm 2015-07-07 22:41:37.000000000 +0200 +++ new/URI-1.71/lib/URI/QueryParam.pm 2016-01-08 04:15:54.000000000 +0100 @@ -3,7 +3,8 @@ use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; sub URI::_query::query_param { my $self = shift; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/Split.pm new/URI-1.71/lib/URI/Split.pm --- old/URI-1.69/lib/URI/Split.pm 2015-06-26 07:27:50.000000000 +0200 +++ new/URI-1.71/lib/URI/Split.pm 2016-01-08 04:15:54.000000000 +0100 @@ -3,7 +3,8 @@ use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; use Exporter 5.57 'import'; our @EXPORT_OK = qw(uri_split uri_join); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/_foreign.pm new/URI-1.71/lib/URI/_foreign.pm --- old/URI-1.69/lib/URI/_foreign.pm 2015-06-26 07:27:54.000000000 +0200 +++ new/URI-1.71/lib/URI/_foreign.pm 2016-01-08 04:15:54.000000000 +0100 @@ -5,6 +5,7 @@ use parent 'URI::_generic'; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/_generic.pm new/URI-1.71/lib/URI/_generic.pm --- old/URI-1.69/lib/URI/_generic.pm 2015-06-26 07:28:09.000000000 +0200 +++ new/URI-1.71/lib/URI/_generic.pm 2016-01-08 04:15:54.000000000 +0100 @@ -8,7 +8,8 @@ use URI::Escape qw(uri_unescape); use Carp (); -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; my $ACHAR = $URI::uric; $ACHAR =~ s,\\[/?],,g; my $PCHAR = $URI::uric; $PCHAR =~ s,\\[?],,g; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/_idna.pm new/URI-1.71/lib/URI/_idna.pm --- old/URI-1.69/lib/URI/_idna.pm 2015-06-26 07:28:14.000000000 +0200 +++ new/URI-1.71/lib/URI/_idna.pm 2016-01-08 04:15:54.000000000 +0100 @@ -9,7 +9,8 @@ use URI::_punycode qw(encode_punycode decode_punycode); use Carp qw(croak); -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; BEGIN { *URI::_idna::_ENV_::JOIN_LEAKS_UTF8_FLAGS = $] < 5.008_003 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/_ldap.pm new/URI-1.71/lib/URI/_ldap.pm --- old/URI-1.69/lib/URI/_ldap.pm 2015-06-26 07:23:46.000000000 +0200 +++ new/URI-1.71/lib/URI/_ldap.pm 2016-01-08 04:15:54.000000000 +0100 @@ -7,7 +7,8 @@ use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; use URI::Escape qw(uri_unescape); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/_login.pm new/URI-1.71/lib/URI/_login.pm --- old/URI-1.69/lib/URI/_login.pm 2015-06-26 07:28:18.000000000 +0200 +++ new/URI-1.71/lib/URI/_login.pm 2016-01-08 04:15:54.000000000 +0100 @@ -5,7 +5,8 @@ use parent qw(URI::_server URI::_userpass); -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; # Generic terminal logins. This is used as a base class for 'telnet', # 'tn3270', and 'rlogin' URL schemes. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/_punycode.pm new/URI-1.71/lib/URI/_punycode.pm --- old/URI-1.69/lib/URI/_punycode.pm 2015-06-26 07:23:46.000000000 +0200 +++ new/URI-1.71/lib/URI/_punycode.pm 2016-01-08 04:15:54.000000000 +0100 @@ -3,7 +3,8 @@ use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; use Exporter 'import'; our @EXPORT = qw(encode_punycode decode_punycode); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/_query.pm new/URI-1.71/lib/URI/_query.pm --- old/URI-1.69/lib/URI/_query.pm 2015-06-26 07:28:25.000000000 +0200 +++ new/URI-1.71/lib/URI/_query.pm 2016-01-08 04:15:54.000000000 +0100 @@ -6,7 +6,8 @@ use URI (); use URI::Escape qw(uri_unescape); -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; sub query { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/_segment.pm new/URI-1.71/lib/URI/_segment.pm --- old/URI-1.69/lib/URI/_segment.pm 2015-06-26 07:28:30.000000000 +0200 +++ new/URI-1.71/lib/URI/_segment.pm 2016-01-08 04:15:54.000000000 +0100 @@ -11,7 +11,8 @@ use overload '""' => sub { $_[0]->[0] }, fallback => 1; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; sub new { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/_server.pm new/URI-1.71/lib/URI/_server.pm --- old/URI-1.69/lib/URI/_server.pm 2015-06-26 07:28:36.000000000 +0200 +++ new/URI-1.71/lib/URI/_server.pm 2016-01-08 04:15:54.000000000 +0100 @@ -7,7 +7,8 @@ use URI::Escape qw(uri_unescape); -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; sub _uric_escape { my($class, $str) = @_; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/_userpass.pm new/URI-1.71/lib/URI/_userpass.pm --- old/URI-1.69/lib/URI/_userpass.pm 2015-06-26 07:28:40.000000000 +0200 +++ new/URI-1.71/lib/URI/_userpass.pm 2016-01-08 04:15:54.000000000 +0100 @@ -5,7 +5,8 @@ use URI::Escape qw(uri_unescape); -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; sub user { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/data.pm new/URI-1.71/lib/URI/data.pm --- old/URI-1.69/lib/URI/data.pm 2015-06-26 07:23:46.000000000 +0200 +++ new/URI-1.71/lib/URI/data.pm 2016-01-08 04:15:54.000000000 +0100 @@ -5,7 +5,8 @@ use parent 'URI'; -our $VERSION = '1.69'; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; use MIME::Base64 qw(encode_base64 decode_base64); use URI::Escape qw(uri_unescape); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/file/Base.pm new/URI-1.71/lib/URI/file/Base.pm --- old/URI-1.69/lib/URI/file/Base.pm 2015-06-26 07:28:44.000000000 +0200 +++ new/URI-1.71/lib/URI/file/Base.pm 2016-01-08 04:15:54.000000000 +0100 @@ -5,7 +5,8 @@ use URI::Escape qw(); -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; sub new { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/file/FAT.pm new/URI-1.71/lib/URI/file/FAT.pm --- old/URI-1.69/lib/URI/file/FAT.pm 2015-06-26 07:28:47.000000000 +0200 +++ new/URI-1.71/lib/URI/file/FAT.pm 2016-01-08 04:15:54.000000000 +0100 @@ -5,7 +5,8 @@ use parent 'URI::file::Win32'; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; sub fix_path { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/file/Mac.pm new/URI-1.71/lib/URI/file/Mac.pm --- old/URI-1.69/lib/URI/file/Mac.pm 2015-06-26 07:28:54.000000000 +0200 +++ new/URI-1.71/lib/URI/file/Mac.pm 2016-01-08 04:15:54.000000000 +0100 @@ -7,7 +7,8 @@ use URI::Escape qw(uri_unescape); -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; sub _file_extract_path { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/file/OS2.pm new/URI-1.71/lib/URI/file/OS2.pm --- old/URI-1.69/lib/URI/file/OS2.pm 2015-06-26 07:28:59.000000000 +0200 +++ new/URI-1.71/lib/URI/file/OS2.pm 2016-01-08 04:15:54.000000000 +0100 @@ -5,7 +5,8 @@ use parent 'URI::file::Win32'; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; # The Win32 version translates k:/foo to file://k:/foo (?!) # We add an empty host diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/file/QNX.pm new/URI-1.71/lib/URI/file/QNX.pm --- old/URI-1.69/lib/URI/file/QNX.pm 2015-06-26 07:29:04.000000000 +0200 +++ new/URI-1.71/lib/URI/file/QNX.pm 2016-01-08 04:15:54.000000000 +0100 @@ -5,7 +5,8 @@ use parent 'URI::file::Unix'; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; sub _file_extract_path { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/file/Unix.pm new/URI-1.71/lib/URI/file/Unix.pm --- old/URI-1.69/lib/URI/file/Unix.pm 2015-06-26 07:29:08.000000000 +0200 +++ new/URI-1.71/lib/URI/file/Unix.pm 2016-01-08 04:15:54.000000000 +0100 @@ -7,7 +7,8 @@ use URI::Escape qw(uri_unescape); -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; sub _file_extract_path { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/file/Win32.pm new/URI-1.71/lib/URI/file/Win32.pm --- old/URI-1.69/lib/URI/file/Win32.pm 2015-06-26 07:29:12.000000000 +0200 +++ new/URI-1.71/lib/URI/file/Win32.pm 2016-01-08 04:15:54.000000000 +0100 @@ -7,7 +7,8 @@ use URI::Escape qw(uri_unescape); -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; sub _file_extract_authority { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/ftp.pm new/URI-1.71/lib/URI/ftp.pm --- old/URI-1.69/lib/URI/ftp.pm 2015-06-26 07:29:29.000000000 +0200 +++ new/URI-1.71/lib/URI/ftp.pm 2016-01-08 04:15:54.000000000 +0100 @@ -3,7 +3,8 @@ use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; use parent qw(URI::_server URI::_userpass); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/gopher.pm new/URI-1.71/lib/URI/gopher.pm --- old/URI-1.69/lib/URI/gopher.pm 2015-06-26 07:29:24.000000000 +0200 +++ new/URI-1.71/lib/URI/gopher.pm 2016-01-08 04:15:54.000000000 +0100 @@ -3,7 +3,8 @@ use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; use parent 'URI::_server'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/http.pm new/URI-1.71/lib/URI/http.pm --- old/URI-1.69/lib/URI/http.pm 2015-06-26 07:29:37.000000000 +0200 +++ new/URI-1.71/lib/URI/http.pm 2016-01-08 04:15:54.000000000 +0100 @@ -3,7 +3,8 @@ use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; use parent 'URI::_server'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/https.pm new/URI-1.71/lib/URI/https.pm --- old/URI-1.69/lib/URI/https.pm 2015-06-26 07:29:40.000000000 +0200 +++ new/URI-1.71/lib/URI/https.pm 2016-01-08 04:15:54.000000000 +0100 @@ -3,7 +3,8 @@ use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; use parent 'URI::http'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/ldap.pm new/URI-1.71/lib/URI/ldap.pm --- old/URI-1.69/lib/URI/ldap.pm 2015-06-26 07:23:46.000000000 +0200 +++ new/URI-1.71/lib/URI/ldap.pm 2016-01-08 04:15:54.000000000 +0100 @@ -7,7 +7,8 @@ use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; use parent qw(URI::_ldap URI::_server); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/ldapi.pm new/URI-1.71/lib/URI/ldapi.pm --- old/URI-1.69/lib/URI/ldapi.pm 2015-06-26 07:29:43.000000000 +0200 +++ new/URI-1.71/lib/URI/ldapi.pm 2016-01-08 04:15:54.000000000 +0100 @@ -3,7 +3,8 @@ use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; use parent qw(URI::_ldap URI::_generic); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/ldaps.pm new/URI-1.71/lib/URI/ldaps.pm --- old/URI-1.69/lib/URI/ldaps.pm 2015-06-26 07:29:47.000000000 +0200 +++ new/URI-1.71/lib/URI/ldaps.pm 2016-01-08 04:15:54.000000000 +0100 @@ -3,7 +3,8 @@ use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; use parent 'URI::ldap'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/mailto.pm new/URI-1.71/lib/URI/mailto.pm --- old/URI-1.69/lib/URI/mailto.pm 2015-06-26 07:29:50.000000000 +0200 +++ new/URI-1.71/lib/URI/mailto.pm 2016-01-08 04:15:54.000000000 +0100 @@ -3,7 +3,8 @@ use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; use parent qw(URI URI::_query); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/mms.pm new/URI-1.71/lib/URI/mms.pm --- old/URI-1.69/lib/URI/mms.pm 2015-06-26 07:29:54.000000000 +0200 +++ new/URI-1.71/lib/URI/mms.pm 2016-01-08 04:15:54.000000000 +0100 @@ -3,7 +3,8 @@ use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; use parent 'URI::http'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/news.pm new/URI-1.71/lib/URI/news.pm --- old/URI-1.69/lib/URI/news.pm 2015-06-26 07:29:57.000000000 +0200 +++ new/URI-1.71/lib/URI/news.pm 2016-01-08 04:15:54.000000000 +0100 @@ -3,7 +3,8 @@ use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; use parent 'URI::_server'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/nntp.pm new/URI-1.71/lib/URI/nntp.pm --- old/URI-1.69/lib/URI/nntp.pm 2015-06-26 07:30:00.000000000 +0200 +++ new/URI-1.71/lib/URI/nntp.pm 2016-01-08 04:15:54.000000000 +0100 @@ -3,7 +3,8 @@ use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; use parent 'URI::news'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/pop.pm new/URI-1.71/lib/URI/pop.pm --- old/URI-1.69/lib/URI/pop.pm 2015-06-26 07:30:04.000000000 +0200 +++ new/URI-1.71/lib/URI/pop.pm 2016-01-08 04:15:54.000000000 +0100 @@ -3,7 +3,8 @@ use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; use parent 'URI::_server'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/rlogin.pm new/URI-1.71/lib/URI/rlogin.pm --- old/URI-1.69/lib/URI/rlogin.pm 2015-06-26 07:30:07.000000000 +0200 +++ new/URI-1.71/lib/URI/rlogin.pm 2016-01-08 04:15:54.000000000 +0100 @@ -3,7 +3,8 @@ use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; use parent 'URI::_login'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/rsync.pm new/URI-1.71/lib/URI/rsync.pm --- old/URI-1.69/lib/URI/rsync.pm 2015-06-26 07:30:12.000000000 +0200 +++ new/URI-1.71/lib/URI/rsync.pm 2016-01-08 04:15:54.000000000 +0100 @@ -5,7 +5,8 @@ use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; use parent qw(URI::_server URI::_userpass); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/rtsp.pm new/URI-1.71/lib/URI/rtsp.pm --- old/URI-1.69/lib/URI/rtsp.pm 2015-06-26 07:30:15.000000000 +0200 +++ new/URI-1.71/lib/URI/rtsp.pm 2016-01-08 04:15:54.000000000 +0100 @@ -3,7 +3,8 @@ use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; use parent 'URI::http'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/rtspu.pm new/URI-1.71/lib/URI/rtspu.pm --- old/URI-1.69/lib/URI/rtspu.pm 2015-06-26 07:30:18.000000000 +0200 +++ new/URI-1.71/lib/URI/rtspu.pm 2016-01-08 04:15:54.000000000 +0100 @@ -3,7 +3,8 @@ use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; use parent 'URI::rtsp'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/sftp.pm new/URI-1.71/lib/URI/sftp.pm --- old/URI-1.69/lib/URI/sftp.pm 2015-06-26 07:24:00.000000000 +0200 +++ new/URI-1.71/lib/URI/sftp.pm 2016-01-08 04:15:54.000000000 +0100 @@ -5,6 +5,7 @@ use parent 'URI::ssh'; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/sip.pm new/URI-1.71/lib/URI/sip.pm --- old/URI-1.69/lib/URI/sip.pm 2015-06-26 07:23:46.000000000 +0200 +++ new/URI-1.71/lib/URI/sip.pm 2016-01-08 04:15:54.000000000 +0100 @@ -14,7 +14,8 @@ use URI::Escape qw(uri_unescape); -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; sub default_port { 5060 } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/sips.pm new/URI-1.71/lib/URI/sips.pm --- old/URI-1.69/lib/URI/sips.pm 2015-06-26 07:30:21.000000000 +0200 +++ new/URI-1.71/lib/URI/sips.pm 2016-01-08 04:15:54.000000000 +0100 @@ -3,7 +3,8 @@ use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; use parent 'URI::sip'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/snews.pm new/URI-1.71/lib/URI/snews.pm --- old/URI-1.69/lib/URI/snews.pm 2015-06-26 07:30:24.000000000 +0200 +++ new/URI-1.71/lib/URI/snews.pm 2016-01-08 04:15:54.000000000 +0100 @@ -3,7 +3,8 @@ use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; use parent 'URI::news'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/ssh.pm new/URI-1.71/lib/URI/ssh.pm --- old/URI-1.69/lib/URI/ssh.pm 2015-06-26 07:30:28.000000000 +0200 +++ new/URI-1.71/lib/URI/ssh.pm 2016-01-08 04:15:54.000000000 +0100 @@ -3,7 +3,8 @@ use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; use parent 'URI::_login'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/telnet.pm new/URI-1.71/lib/URI/telnet.pm --- old/URI-1.69/lib/URI/telnet.pm 2015-06-26 07:30:30.000000000 +0200 +++ new/URI-1.71/lib/URI/telnet.pm 2016-01-08 04:15:54.000000000 +0100 @@ -3,7 +3,8 @@ use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; use parent 'URI::_login'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/tn3270.pm new/URI-1.71/lib/URI/tn3270.pm --- old/URI-1.69/lib/URI/tn3270.pm 2015-06-26 07:30:34.000000000 +0200 +++ new/URI-1.71/lib/URI/tn3270.pm 2016-01-08 04:15:54.000000000 +0100 @@ -3,7 +3,8 @@ use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; use parent 'URI::_login'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/urn/oid.pm new/URI-1.71/lib/URI/urn/oid.pm --- old/URI-1.69/lib/URI/urn/oid.pm 2015-06-26 07:30:37.000000000 +0200 +++ new/URI-1.71/lib/URI/urn/oid.pm 2016-01-08 04:15:54.000000000 +0100 @@ -3,7 +3,8 @@ use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; use parent 'URI::urn'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI/urn.pm new/URI-1.71/lib/URI/urn.pm --- old/URI-1.69/lib/URI/urn.pm 2015-06-26 07:30:46.000000000 +0200 +++ new/URI-1.71/lib/URI/urn.pm 2016-01-08 04:15:54.000000000 +0100 @@ -3,13 +3,15 @@ use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; use parent 'URI'; use Carp qw(carp); my %implementor; +my %require_attempted; sub _init { my $class = shift; @@ -29,9 +31,13 @@ $impclass = "URI::urn::$id"; no strict 'refs'; unless (@{"${impclass}::ISA"}) { - # Try to load it - eval "require $impclass"; - die $@ if $@ && $@ !~ /Can\'t locate.*in \@INC/; + if (not exists $require_attempted{$impclass}) { + # Try to load it + my $_old_error = $@; + eval "require $impclass"; + die $@ if $@ && $@ !~ /Can\'t locate.*in \@INC/; + $@ = $_old_error; + } $impclass = "URI::urn" unless @{"${impclass}::ISA"}; } } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/lib/URI.pm new/URI-1.71/lib/URI.pm --- old/URI-1.69/lib/URI.pm 2015-07-07 22:39:00.000000000 +0200 +++ new/URI-1.71/lib/URI.pm 2016-01-08 04:15:54.000000000 +0100 @@ -3,7 +3,8 @@ use strict; use warnings; -our $VERSION = "1.69"; +our $VERSION = '1.71'; +$VERSION = eval $VERSION; our ($ABS_REMOTE_LEADING_DOTS, $ABS_ALLOW_RELATIVE_SCHEME, $DEFAULT_QUERY_FORM_DELIMITER); @@ -94,6 +95,7 @@ return $str; } +my %require_attempted; sub implementor { @@ -128,9 +130,13 @@ no strict 'refs'; # check we actually have one for the scheme: unless (@{"${ic}::ISA"}) { - # Try to load it - eval "require $ic"; - die $@ if $@ && $@ !~ /Can\'t locate.*in \@INC/; + if (not exists $require_attempted{$ic}) { + # Try to load it + my $_old_error = $@; + eval "require $ic"; + die $@ if $@ && $@ !~ /Can\'t locate.*in \@INC/; + $@ = $_old_error; + } return undef unless @{"${ic}::ISA"}; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/URI-1.69/t/scheme-exceptions.t new/URI-1.71/t/scheme-exceptions.t --- old/URI-1.69/t/scheme-exceptions.t 1970-01-01 01:00:00.000000000 +0100 +++ new/URI-1.71/t/scheme-exceptions.t 2015-12-29 00:43:26.000000000 +0100 @@ -0,0 +1,16 @@ +use strict; +use warnings; + +use Test::More; +use URI; + +plan skip_all => 'this test assumes that URI::javascript does not exist' + if eval 'require URI::javascript'; +plan tests => 4; + +for (0..1) { + my $uri = URI->new('javascript://foo/bar'); + + is($@, '', 'no exception when trying to load a scheme handler class'); + ok($uri->isa('URI'), 'but URI still instantiated as foreign'); +}
