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 - coolo@suse.com
+
+- 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) "
],
- "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) '
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();