Hello community, here is the log from the commit of package perl-Role-Tiny for openSUSE:Factory checked in at 2019-08-15 15:42:33 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Role-Tiny (Old) and /work/SRC/openSUSE:Factory/.perl-Role-Tiny.new.9556 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Role-Tiny" Thu Aug 15 15:42:33 2019 rev:15 rq:721972 version:2.000008 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Role-Tiny/perl-Role-Tiny.changes 2019-08-07 13:59:43.400853976 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Role-Tiny.new.9556/perl-Role-Tiny.changes 2019-08-15 15:42:35.607206642 +0200 @@ -1,0 +2,11 @@ +Tue Aug 6 05:28:13 UTC 2019 - Stephan Kulow <[email protected]> + +- updated to 2.000008 + see /usr/share/doc/packages/perl-Role-Tiny/Changes + + 2.000008 - 2019-08-05 + - reverting all changes from 2.000007 due to failures on some perl versions + and a number of downstream users. The changes will be reintroduced in a + fixed form in a future version. + +------------------------------------------------------------------- Old: ---- Role-Tiny-2.000007.tar.gz New: ---- Role-Tiny-2.000008.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Role-Tiny.spec ++++++ --- /var/tmp/diff_new_pack.e92IOi/_old 2019-08-15 15:42:35.943206564 +0200 +++ /var/tmp/diff_new_pack.e92IOi/_new 2019-08-15 15:42:35.947206563 +0200 @@ -17,14 +17,14 @@ Name: perl-Role-Tiny -Version: 2.000007 +Version: 2.000008 Release: 0 %define cpan_name Role-Tiny Summary: Roles: a nouvelle cuisine portion size slice of Moose License: Artistic-1.0 OR GPL-1.0-or-later Group: Development/Libraries/Perl Url: https://metacpan.org/release/%{cpan_name} -Source0: https://cpan.metacpan.org/authors/id/E/ET/ETHER/%{cpan_name}-%{version}.tar.gz +Source0: https://cpan.metacpan.org/authors/id/H/HA/HAARG/%{cpan_name}-%{version}.tar.gz Source1: cpanspec.yml BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build ++++++ Role-Tiny-2.000007.tar.gz -> Role-Tiny-2.000008.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Role-Tiny-2.000007/Changes new/Role-Tiny-2.000008/Changes --- old/Role-Tiny-2.000007/Changes 2019-07-31 20:16:10.000000000 +0200 +++ new/Role-Tiny-2.000008/Changes 2019-08-05 13:08:14.000000000 +0200 @@ -1,5 +1,10 @@ Revision history for Role-Tiny +2.000008 - 2019-08-05 + - reverting all changes from 2.000007 due to failures on some perl versions + and a number of downstream users. The changes will be reintroduced in a + fixed form in a future version. + 2.000007 - 2019-07-31 - fix composing roles into packages that have stub subs in them - exclude all constant subs from method list diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Role-Tiny-2.000007/MANIFEST new/Role-Tiny-2.000008/MANIFEST --- old/Role-Tiny-2.000007/MANIFEST 2019-07-31 20:16:20.000000000 +0200 +++ new/Role-Tiny-2.000008/MANIFEST 2019-08-05 13:08:45.000000000 +0200 @@ -23,7 +23,6 @@ t/role-tiny-with.t t/role-tiny.t t/role-with-inheritance.t -t/stub.t t/subclass.t xt/around-does.t xt/compose-modifiers.t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Role-Tiny-2.000007/META.json new/Role-Tiny-2.000008/META.json --- old/Role-Tiny-2.000007/META.json 2019-07-31 20:16:20.000000000 +0200 +++ new/Role-Tiny-2.000008/META.json 2019-08-05 13:08:45.000000000 +0200 @@ -4,7 +4,7 @@ "mst - Matt S. Trout (cpan:MSTROUT) <[email protected]>" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 7.3702, CPAN::Meta::Converter version 2.150010", + "generated_by" : "ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version 2.150010", "license" : [ "perl_5" ], @@ -60,6 +60,6 @@ }, "x_IRC" : "irc://irc.perl.org/#moose" }, - "version" : "2.000007", - "x_serialization_backend" : "JSON::MaybeXS version 1.004" + "version" : "2.000008", + "x_serialization_backend" : "JSON::PP version 4.00" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Role-Tiny-2.000007/META.yml new/Role-Tiny-2.000008/META.yml --- old/Role-Tiny-2.000007/META.yml 2019-07-31 20:16:20.000000000 +0200 +++ new/Role-Tiny-2.000008/META.yml 2019-08-05 13:08:44.000000000 +0200 @@ -5,7 +5,7 @@ build_requires: Test::More: '0.88' dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 7.3702, CPAN::Meta::Converter version 2.150010' +generated_by: 'ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version 2.150010' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -25,5 +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.000007' +version: '2.000008' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Role-Tiny-2.000007/lib/Role/Tiny/With.pm new/Role-Tiny-2.000008/lib/Role/Tiny/With.pm --- old/Role-Tiny-2.000007/lib/Role/Tiny/With.pm 2019-07-31 20:14:51.000000000 +0200 +++ new/Role-Tiny-2.000008/lib/Role/Tiny/With.pm 2019-08-05 13:06:20.000000000 +0200 @@ -3,7 +3,7 @@ use strict; use warnings; -our $VERSION = '2.000007'; +our $VERSION = '2.000008'; $VERSION =~ tr/_//d; use Role::Tiny (); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Role-Tiny-2.000007/lib/Role/Tiny.pm new/Role-Tiny-2.000008/lib/Role/Tiny.pm --- old/Role-Tiny-2.000007/lib/Role/Tiny.pm 2019-07-31 20:14:51.000000000 +0200 +++ new/Role-Tiny-2.000008/lib/Role/Tiny.pm 2019-08-05 13:06:20.000000000 +0200 @@ -6,7 +6,7 @@ use strict; use warnings; -our $VERSION = '2.000007'; +our $VERSION = '2.000008'; $VERSION =~ tr/_//d; our %INFO; @@ -54,22 +54,6 @@ return 1; } -sub _is_const { - my $sub = shift; - my $proto = prototype $sub; - if (defined &$sub && defined $proto && $proto eq '') { - local *_test_const = $sub; - local $@; - local $SIG{__DIE__}; - return !eval { - use warnings FATAL => 'all'; - undef &_test_const; - 1; - }; - } - return !!0; -} - sub import { my $target = caller; my $me = shift; @@ -371,10 +355,8 @@ map {; no strict 'refs'; my $code = exists &{"${role}::$_"} ? \&{"${role}::$_"} : undef; - ( ! $code or exists $not_methods->{$code} or (!/\A\(/ && _is_const($code)) ) ? () : ($_ => $code) - } - grep +(!ref($stash->{$_}) || ref($stash->{$_}) eq 'CODE'), - keys %$stash + ( ! $code or exists $not_methods->{$code} ) ? () : ($_ => $code) + } grep +(!ref($stash->{$_}) || ref($stash->{$_}) eq 'CODE'), keys %$stash }; } @@ -397,7 +379,7 @@ # determine already extant methods of target my %has_methods; @has_methods{grep - +(ref($stash->{$_}) || exists &{"${to}::$_"}), + +(ref($stash->{$_}) || *{$stash->{$_}}{CODE}), keys %$stash } = (); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Role-Tiny-2.000007/t/concrete-methods.t new/Role-Tiny-2.000008/t/concrete-methods.t --- old/Role-Tiny-2.000007/t/concrete-methods.t 2019-07-12 18:27:42.000000000 +0200 +++ new/Role-Tiny-2.000008/t/concrete-methods.t 2019-08-05 12:54:33.000000000 +0200 @@ -6,19 +6,12 @@ package MyRole1; sub before_role {} - use constant before_constant => 1; - BEGIN { - if ("$]" >= 5.026) { - $MyRole1::{'blorf'} = sub { 'blorf' }; - } - } use Role::Tiny; no warnings 'once'; our $GLOBAL1 = 1; sub after_role {} - use constant after_constant => 1; } { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Role-Tiny-2.000007/t/role-tiny-composition.t new/Role-Tiny-2.000008/t/role-tiny-composition.t --- old/Role-Tiny-2.000007/t/role-tiny-composition.t 2019-07-12 18:27:42.000000000 +0200 +++ new/Role-Tiny-2.000008/t/role-tiny-composition.t 2019-08-05 12:54:33.000000000 +0200 @@ -32,11 +32,6 @@ qr/^Method name conflict for 'foo' between roles 'R1' and 'R2', cannot apply these simultaneously to an object/, 'apply conflicting roles to object'; -eval { Role::Tiny->apply_roles_to_object(X->new); 1 } - or $@ ||= "false exception!"; -like $@, - qr/^No roles supplied!/, - 'apply no roles to object'; done_testing; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Role-Tiny-2.000007/t/role-tiny.t new/Role-Tiny-2.000008/t/role-tiny.t --- old/Role-Tiny-2.000007/t/role-tiny.t 2019-07-12 18:27:42.000000000 +0200 +++ new/Role-Tiny-2.000008/t/role-tiny.t 2019-08-05 12:54:33.000000000 +0200 @@ -73,9 +73,6 @@ ok(!MyClass->does('IntermediaryRole'), 'class does not do non-applied role'); ok(!MyClass->does('Random'), 'class does not do non-role'); -like try_apply_to(bless {}, 'MyClass'), qr/This is apply_role_to_package/, - 'error apply_role_to_package on object'; - like(try_apply_to('NoMethods'), qr/req1, req2/, 'error for both methods'); like(try_apply_to('OneMethod'), qr/req2/, 'error for one method'); @@ -86,11 +83,6 @@ } or $@ ||= "false exception!"; is $@, '', 'No errors applying roles'; -eval { - Role::Tiny->apply_role_to_package('MyClass', 'ExtraClass'); -}; -like $@, qr/ExtraClass is not a Role::Tiny/, 'No errors applying roles'; - ok(ExtraClass->does('MyRole'), 'ExtraClass does MyRole'); ok(ExtraClass->does('IntermediaryRole'), 'ExtraClass does IntermediaryRole'); is(ExtraClass->bar, 'role bar', 'method from role'); @@ -105,20 +97,6 @@ isa_ok($new_class, 'MyClass'); is($new_class->extra1, 'role extra', 'method from role'); -eval { - Role::Tiny->create_class_with_roles('MyClass'); - 1; -} or $@ ||= "false exception!"; -like $@, qr/^No roles supplied!/, - 'error on no roles to create_class_with_roles'; - -eval { - Role::Tiny->create_class_with_roles('MyClass', 'ExtraClass'); - 1; -} or $@ ||= "false exception!"; -like $@, qr/^ExtraClass is not a Role::Tiny/, - 'error on non-role to create_class_with_roles'; - ok(Role::Tiny->is_role('MyRole'), 'is_role true for roles'); ok(!Role::Tiny->is_role('MyClass'), 'is_role false for classes'); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Role-Tiny-2.000007/t/stub.t new/Role-Tiny-2.000008/t/stub.t --- old/Role-Tiny-2.000007/t/stub.t 2019-07-12 16:59:26.000000000 +0200 +++ new/Role-Tiny-2.000008/t/stub.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,61 +0,0 @@ -use strict; -use warnings; -use Test::More; - -use Role::Tiny (); - -{ - eval q{ - package RoleWithMatchingSub; - use Role::Tiny; - sub stubsub { "stubsub" } - 1; - } or die $@; - - my $e; - if (!eval q{ - package ClassWithStub; - use Role::Tiny::With; - - sub stubsub; - - with 'RoleWithMatchingSub'; - 1; - }) { - $e = $@; - } - - is $e, undef, - 'no error composing role in class with stub'; - - ok exists &ClassWithStub::stubsub && !defined &ClassWithStub::stubsub, - 'stub sub prevents composing matching sub'; -} - -{ - eval q{ - package RoleWithStub; - use Role::Tiny; - sub stubsub; - 1; - } or die $@; - - my $e; - if (!eval q{ - package ComposeStub; - use Role::Tiny::With; - - with 'RoleWithStub'; - 1; - }) { - $e = $@; - } - - is $e, undef, - 'no error composing role with stub'; - - ok exists &ComposeStub::stubsub && !defined &ComposeStub::stubsub, - 'composing role includes stub subs'; -} - -done_testing;
