Hello community, here is the log from the commit of package perl-Role-Tiny for openSUSE:Factory checked in at 2016-11-13 23:01:55 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Role-Tiny (Old) and /work/SRC/openSUSE:Factory/.perl-Role-Tiny.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Role-Tiny" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Role-Tiny/perl-Role-Tiny.changes 2016-11-10 13:27:33.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Role-Tiny.new/perl-Role-Tiny.changes 2016-11-13 23:02:54.000000000 +0100 @@ -1,0 +2,9 @@ +Fri Nov 11 07:12:44 UTC 2016 - [email protected] + +- updated to 2.000005 + see /usr/share/doc/packages/perl-Role-Tiny/Changes + + 2.000005 - 2016-11-01 + - revert change to MRO::Compat usage + +------------------------------------------------------------------- Old: ---- Role-Tiny-2.000004.tar.gz New: ---- Role-Tiny-2.000005.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Role-Tiny.spec ++++++ --- /var/tmp/diff_new_pack.QTEWqU/_old 2016-11-13 23:02:55.000000000 +0100 +++ /var/tmp/diff_new_pack.QTEWqU/_new 2016-11-13 23:02:55.000000000 +0100 @@ -17,7 +17,7 @@ Name: perl-Role-Tiny -Version: 2.000004 +Version: 2.000005 Release: 0 %define cpan_name Role-Tiny Summary: Roles. Like a nouvelle cuisine portion size slice of Moose ++++++ Role-Tiny-2.000004.tar.gz -> Role-Tiny-2.000005.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Role-Tiny-2.000004/Changes new/Role-Tiny-2.000005/Changes --- old/Role-Tiny-2.000004/Changes 2016-10-31 22:22:29.000000000 +0100 +++ new/Role-Tiny-2.000005/Changes 2016-11-01 15:10:44.000000000 +0100 @@ -1,5 +1,8 @@ Revision history for Role-Tiny +2.000005 - 2016-11-01 + - revert change to MRO::Compat usage + 2.000004 - 2016-10-31 - Fix consuming stubs from roles (RT#116674). - Fix error message when applying conflicting roles to an object. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Role-Tiny-2.000004/META.json new/Role-Tiny-2.000005/META.json --- old/Role-Tiny-2.000004/META.json 2016-10-31 22:22:49.000000000 +0100 +++ new/Role-Tiny-2.000005/META.json 2016-11-01 15:10:55.000000000 +0100 @@ -3,7 +3,7 @@ "author" : [ "mst - Matt S. Trout (cpan:MSTROUT) <[email protected]>" ], - "dynamic_config" : 0, + "dynamic_config" : 1, "generated_by" : "ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter version 2.150005", "license" : [ "perl_5" @@ -60,7 +60,6 @@ }, "x_IRC" : "irc://irc.perl.org/#moose" }, - "version" : "2.000004", - "x_serialization_backend" : "JSON::PP version 2.27300", - "x_static_install" : 1 + "version" : "2.000005", + "x_serialization_backend" : "JSON::PP version 2.27300" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Role-Tiny-2.000004/META.yml new/Role-Tiny-2.000005/META.yml --- old/Role-Tiny-2.000004/META.yml 2016-10-31 22:22:49.000000000 +0100 +++ new/Role-Tiny-2.000005/META.yml 2016-11-01 15:10:55.000000000 +0100 @@ -4,7 +4,7 @@ - 'mst - Matt S. Trout (cpan:MSTROUT) <[email protected]>' build_requires: Test::More: '0.88' -dynamic_config: 0 +dynamic_config: 1 generated_by: 'ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter version 2.150005' license: perl meta-spec: @@ -25,6 +25,5 @@ bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=Role-Tiny license: http://dev.perl.org/licenses/ repository: git://github.com/moose/Role-Tiny.git -version: '2.000004' +version: '2.000005' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' -x_static_install: 1 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Role-Tiny-2.000004/Makefile.PL new/Role-Tiny-2.000005/Makefile.PL --- old/Role-Tiny-2.000004/Makefile.PL 2016-10-18 22:03:17.000000000 +0200 +++ new/Role-Tiny-2.000005/Makefile.PL 2016-11-01 14:53:21.000000000 +0100 @@ -39,11 +39,13 @@ no_index => { directory => [ 't', 'xt' ] }, - dynamic_config => 0, - x_static_install => 1, ); -my %MM_ARGS = (); +my %MM_ARGS = ( + PREREQ_PM => { + ($] >= 5.010 ? () : ('MRO::Compat' => 0)), + }, +); ## BOILERPLATE ############################################################### require ExtUtils::MakeMaker; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Role-Tiny-2.000004/lib/Role/Tiny/With.pm new/Role-Tiny-2.000005/lib/Role/Tiny/With.pm --- old/Role-Tiny-2.000004/lib/Role/Tiny/With.pm 2016-10-31 22:22:24.000000000 +0100 +++ new/Role-Tiny-2.000005/lib/Role/Tiny/With.pm 2016-11-01 15:10:25.000000000 +0100 @@ -3,7 +3,7 @@ use strict; use warnings; -our $VERSION = '2.000004'; +our $VERSION = '2.000005'; $VERSION = eval $VERSION; use Role::Tiny (); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Role-Tiny-2.000004/lib/Role/Tiny.pm new/Role-Tiny-2.000005/lib/Role/Tiny.pm --- old/Role-Tiny-2.000004/lib/Role/Tiny.pm 2016-10-31 22:22:24.000000000 +0100 +++ new/Role-Tiny-2.000005/lib/Role/Tiny.pm 2016-11-01 15:10:25.000000000 +0100 @@ -6,7 +6,7 @@ use strict; use warnings; -our $VERSION = '2.000004'; +our $VERSION = '2.000005'; $VERSION = eval $VERSION; our %INFO; @@ -19,6 +19,7 @@ BEGIN { *_WORK_AROUND_BROKEN_MODULE_STATE = "$]" < 5.009 ? sub(){1} : sub(){0}; + *_MRO_MODULE = "$]" < 5.010 ? sub(){"MRO/Compat.pm"} : sub(){"mro.pm"}; } sub croak { @@ -161,6 +162,8 @@ croak "${role} is not a Role::Tiny" unless $me->is_role($role); } + require(_MRO_MODULE); + my $composite_info = $me->_composite_info_for(@roles); my %conflicts = %{$composite_info->{conflicts}}; if (keys %conflicts) { @@ -454,7 +457,8 @@ sub does_role { my ($proto, $role) = @_; - foreach my $class (@{_get_isa(ref($proto)||$proto)}) { + require(_MRO_MODULE); + foreach my $class (@{mro::get_linear_isa(ref($proto)||$proto)}) { return 1 if exists $APPLIED_TO{$class}{$role}; } return 0; @@ -465,30 +469,6 @@ return !!($INFO{$role} && ($INFO{$role}{is_role} || $INFO{$role}{not_methods})); } -sub _get_isa ($;$) { - no warnings 'redefine'; - if ("$]" >= 5.010) { - require mro; - *__get_isa = \&mro::get_linear_isa; - } - else { - *__get_isa = \&__get_linear_isa_dfs; - } - goto &__get_isa; -} - -sub _get_linear_isa_dfs ($;$) { - my @isa = shift; - my @lin; - my %seen; - while (my $class = pop @isa) { - push @lin, $class; - no strict 'refs'; - push @isa, grep !$seen{$_}++, reverse @{$class.'::ISA'}; - } - return \@lin; -} - 1; __END__ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Role-Tiny-2.000004/t/role-with-inheritance.t new/Role-Tiny-2.000005/t/role-with-inheritance.t --- old/Role-Tiny-2.000004/t/role-with-inheritance.t 2016-10-31 08:38:06.000000000 +0100 +++ new/Role-Tiny-2.000005/t/role-with-inheritance.t 2016-11-01 14:53:21.000000000 +0100 @@ -27,15 +27,4 @@ ok Role::Tiny::does_role('C2','R1'), "Child does base's role"; ok Role::Tiny::does_role('C2','R2'), "Child does own role"; -{ - package C3; - our @ISA = qw(C1); -} -{ - package C4; - our @ISA = qw(C2 C3); -} -is_deeply Role::Tiny::_get_linear_isa_dfs('C4'), ['C4', 'C2', 'C1', 'C3'], - 'dfs isa search is accurate'; - done_testing();
