Hello community, here is the log from the commit of package perl-Modern-Perl for openSUSE:Factory checked in at 2017-01-20 13:07:58 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Modern-Perl (Old) and /work/SRC/openSUSE:Factory/.perl-Modern-Perl.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-Modern-Perl" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Modern-Perl/perl-Modern-Perl.changes 2017-01-18 21:43:18.791797934 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Modern-Perl.new/perl-Modern-Perl.changes 2017-01-20 13:07:59.492659129 +0100 @@ -1,0 +2,6 @@ +Wed Jan 18 06:05:13 UTC 2017 - coolo@suse.com + +- updated to 1.20170117 + see /usr/share/doc/packages/perl-Modern-Perl/Changes + +------------------------------------------------------------------- Old: ---- Modern-Perl-1.20170115.tar.gz New: ---- Modern-Perl-1.20170117.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Modern-Perl.spec ++++++ --- /var/tmp/diff_new_pack.vwqaIQ/_old 2017-01-20 13:08:00.032582067 +0100 +++ /var/tmp/diff_new_pack.vwqaIQ/_new 2017-01-20 13:08:00.032582067 +0100 @@ -17,7 +17,7 @@ Name: perl-Modern-Perl -Version: 1.20170115 +Version: 1.20170117 Release: 0 %define cpan_name Modern-Perl Summary: Enable All of the Features of Modern Perl with One Import ++++++ Modern-Perl-1.20170115.tar.gz -> Modern-Perl-1.20170117.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Modern-Perl-1.20170115/Build.PL new/Modern-Perl-1.20170117/Build.PL --- old/Modern-Perl-1.20170115/Build.PL 2017-01-15 22:22:06.000000000 +0100 +++ new/Modern-Perl-1.20170117/Build.PL 2017-01-17 05:37:13.000000000 +0100 @@ -1,5 +1,5 @@ -# This file was automatically generated by Dist::Zilla::Plugin::ModuleBuild v6.008. +# This file was automatically generated by Dist::Zilla::Plugin::ModuleBuild v5.043. use strict; use warnings; @@ -19,7 +19,7 @@ "chromatic" ], "dist_name" => "Modern-Perl", - "dist_version" => "1.20170115", + "dist_version" => "1.20170117", "license" => "perl", "module_name" => "Modern::Perl", "recursive_test_files" => 1, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Modern-Perl-1.20170115/Changes new/Modern-Perl-1.20170117/Changes --- old/Modern-Perl-1.20170115/Changes 2017-01-15 22:22:06.000000000 +0100 +++ new/Modern-Perl-1.20170117/Changes 2017-01-17 05:37:13.000000000 +0100 @@ -1,6 +1,10 @@ Revision history for Modern::Perl -1.20170115 2017-01-15 13:22:05-08:00 America/Los_Angeles +1.20170117 2017-01-16 20:37:12-08:00 America/Los_Angeles + - cleaned up test suite + - fixed Perl 5.25 failures (RT #114690) + +1.20170116 2017-01-16 08:46:50-08:00 America/Los_Angeles - updated for 2017 release - maybe 2016 should have supported 5.22, but given how long I waited... oops - improved documentation about reexporting (RT #109076) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Modern-Perl-1.20170115/MANIFEST new/Modern-Perl-1.20170117/MANIFEST --- old/Modern-Perl-1.20170115/MANIFEST 2017-01-15 22:22:06.000000000 +0100 +++ new/Modern-Perl-1.20170117/MANIFEST 2017-01-17 05:37:13.000000000 +0100 @@ -1,4 +1,4 @@ -# This file was automatically generated by Dist::Zilla::Plugin::Manifest v6.008. +# This file was automatically generated by Dist::Zilla::Plugin::Manifest v5.043. Build.PL Changes LICENSE diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Modern-Perl-1.20170115/META.yml new/Modern-Perl-1.20170117/META.yml --- old/Modern-Perl-1.20170115/META.yml 2017-01-15 22:22:06.000000000 +0100 +++ new/Modern-Perl-1.20170117/META.yml 2017-01-17 05:37:13.000000000 +0100 @@ -9,7 +9,7 @@ ExtUtils::MakeMaker: '0' Module::Build: '0.28' dynamic_config: 0 -generated_by: 'Dist::Zilla version 6.008, CPAN::Meta::Converter version 2.150005' +generated_by: 'Dist::Zilla version 5.043, CPAN::Meta::Converter version 2.150001' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -27,5 +27,4 @@ resources: homepage: https://github.com/chromatic/Modern-Perl repository: https://github.com/chromatic/Modern-Perl.git -version: '1.20170115' -x_serialization_backend: 'YAML::Tiny version 1.69' +version: '1.20170117' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Modern-Perl-1.20170115/Makefile.PL new/Modern-Perl-1.20170117/Makefile.PL --- old/Modern-Perl-1.20170115/Makefile.PL 2017-01-15 22:22:06.000000000 +0100 +++ new/Modern-Perl-1.20170117/Makefile.PL 2017-01-17 05:37:13.000000000 +0100 @@ -1,4 +1,4 @@ -# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v6.008. +# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v5.043. use strict; use warnings; @@ -32,7 +32,7 @@ "TEST_REQUIRES" => { "Test::More" => "0.98" }, - "VERSION" => "1.20170115", + "VERSION" => "1.20170117", "test" => { "TESTS" => "t/*.t" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Modern-Perl-1.20170115/lib/Modern/Perl.pm new/Modern-Perl-1.20170117/lib/Modern/Perl.pm --- old/Modern-Perl-1.20170115/lib/Modern/Perl.pm 2017-01-15 22:22:06.000000000 +0100 +++ new/Modern-Perl-1.20170117/lib/Modern/Perl.pm 2017-01-17 05:37:13.000000000 +0100 @@ -1,6 +1,6 @@ package Modern::Perl; # ABSTRACT: enable all of the features of Modern Perl with one import -$Modern::Perl::VERSION = '1.20170115'; +$Modern::Perl::VERSION = '1.20170117'; use 5.010_000; use strict; @@ -91,7 +91,7 @@ =head1 VERSION -version 1.20170115 +version 1.20170117 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Modern-Perl-1.20170115/t/year_imports.t new/Modern-Perl-1.20170117/t/year_imports.t --- old/Modern-Perl-1.20170115/t/year_imports.t 2017-01-15 22:22:06.000000000 +0100 +++ new/Modern-Perl-1.20170117/t/year_imports.t 2017-01-17 05:37:13.000000000 +0100 @@ -13,17 +13,99 @@ warn shift }; +sub _get_year { + my $year = shift; + return $year eq '()' ? $year : "'$year'"; +} + +sub test_lexical_subs_for +{ + # lexical subs removed from feature.pm in 5.25.2 + return if $] >= 5.025002; + + my $year = _get_year(shift); + eval qq|use Modern::Perl $year; my sub foo {}|; + isnt $@, '', qq|use Modern::Perl $year should not enable lexical subs|; +} + +sub test_switch_for { + my $year = _get_year(shift); + + eval qq|use Modern::Perl $year; sub { given (0) {} }|; + is $@, '', qq|use Modern::Perl $year enables switch|; +} + +sub test_say_for { + my $year = _get_year(shift); + + eval qq|use Modern::Perl $year; sub { say 0 }|; + is $@, '', qq|use Modern::Perl $year enables say|; +} + +sub test_state_for { + my $year = _get_year(shift); + + eval qq|use Modern::Perl $year; state \$x;|; + is $@, '', qq|use Modern::Perl $year enables state|; +} + +sub test_cur_sub_for { + my $year = _get_year(shift); + + eval qq|use Modern::Perl $year; sub { return __SUB__ }|; + is $@, '', qq|use Modern::Perl $year enables current_sub|; +} + +sub test_array_base_for { + my $year = _get_year(shift); + + my $warning = ''; + local $SIG{__WARN__} = sub { $warning = shift }; + + eval qq|use Modern::Perl $year; \$[ = 10;|; + + like $warning, qr/Use of assignment to \$\[ is deprecated/, + qq|use Modern::Perl $year disables array_base|; +} + +sub test_fc_for { + my $year = _get_year(shift); + + eval qq|use Modern::Perl $year; fc("tschüß") eq fc("TSCHÜSS")|; + is $@, '', qq|use Modern::Perl $year enables fc|; +} + +sub test_postderef_for { + my $year = _get_year(shift); + + eval qq|use Modern::Perl $year; my \$r = [ 1, [ 2, 3 ], 4 ]; \$r->[1]->@*|; + is $@, '', qq|use Modern::Perl $year enables postderef_qq|; +} + +sub test_unicode_strings_for { + my $year = _get_year(shift); + + eval qq{ + use Modern::Perl $year; + is uc "\xdf", "SS", q|$year enables unicode_strings|; + }; +} + eval 'sub { given (0) {} }'; isnt $@, '', 'use Modern::Perl () does not enable switch'; + eval 'sub { say 0 }'; isnt $@, '', 'use Modern::Perl () does not enable say'; + eval 'state $x;'; isnt $@, '', 'use Modern::Perl () does not enable state'; is uc "\xdf", "\xdf", 'Modern::Perl () does not enable unicode_strings'; + eval 'sub { return __SUB__ }'; is $@, '', q|use Modern::Perl '2013' does not enable current_sub|; -my $warning = ''; + { + my $warning = ''; local $SIG{__WARN__} = sub { $warning = shift }; eval 'fc("tschüß") eq fc("TSCHÜSS")'; isnt $@, '', q|use Modern::Perl () does not enable fc|; @@ -31,186 +113,114 @@ { use Modern::Perl '2009'; - eval 'sub { given (0) {} }'; - is $@, '', q|use Modern::Perl '2009' enables switch|; - eval 'sub { say 0 }'; - is $@, '', q|use Modern::Perl '2009' enables say|; - eval 'state $x'; - is $@, '', q|use Modern::Perl '2009' enables state|; + + test_switch_for( '2009' ); + test_say_for( '2009' ); + test_state_for( '2009' ); + is uc "\xdf", "\xdf", 'but not unicode_strings'; } { use Modern::Perl '2010'; - eval 'sub { given (0) {} }'; - is $@, '', q|use Modern::Perl '2010' enables switch|; - eval 'sub { say 0 }'; - is $@, '', q|use Modern::Perl '2010' enables say|; - eval 'state $x'; - is $@, '', q|use Modern::Perl '2010' enables state|; + + test_switch_for( '2010' ); + test_say_for( '2010' ); + test_state_for( '2010' ); + is uc "\xdf", "\xdf", 'but not unicode_strings'; } if ($] >= 5.012) { - eval q{ - use Modern::Perl '2011'; - eval 'sub { given (0) {} }'; - is $@, '', q|use Modern::Perl '2011' enables switch|; - eval 'sub { say 0 }'; - is $@, '', q|use Modern::Perl '2011' enables say|; - eval 'state $x'; - is $@, '', q|use Modern::Perl '2011' enables state|; - is uc "\xdf", "SS", '2011 enables unicode_strings'; - }; + my $year = 2011; + + test_switch_for( $year ); + test_say_for( $year ); + test_state_for( $year ); + test_unicode_strings_for( $year ); } if ($] >= 5.014) { - eval q{ - use Modern::Perl '2012'; - eval 'sub { given (0) {} }'; - is $@, '', q|use Modern::Perl '2012' enables switch|; - eval 'sub { say 0 }'; - is $@, '', q|use Modern::Perl '2012' enables say|; - eval 'state $x'; - is $@, '', q|use Modern::Perl '2012' enables state|; - is uc "\xdf", "SS", '2012 enables unicode_strings'; - }; + my $year = 2012; + + test_switch_for( $year ); + test_say_for( $year ); + test_state_for( $year ); + test_unicode_strings_for( $year ); } if ($] >= 5.016) { - eval q{ - use Modern::Perl '2013'; - eval 'sub { given (0) {} }'; - is $@, '', q|use Modern::Perl '2013' enables switch|; - eval 'sub { say 0 }'; - is $@, '', q|use Modern::Perl '2013' enables say|; - eval 'state $x'; - is $@, '', q|use Modern::Perl '2013' enables state|; - is uc "\xdf", "SS", '2013 enables unicode_strings'; - eval 'sub { return __SUB__ }'; - is $@, '', q|use Modern::Perl '2013' enables current_sub|; - my $warning = ''; - local $SIG{__WARN__} = sub { $warning = shift }; - eval '$[ = 10'; - like $warning, qr/Use of assignment to \$\[ is deprecated/, - q|use Modern::Perl '2013' disables array_base|; - eval 'fc("tschüß") eq fc("TSCHÜSS")'; - is $@, '', q|use Modern::Perl '2013' enables fc|; - eval 'my sub foo {}'; - isnt $@, '', q|use Modern::Perl '2013' should not enable lexical subs|; - }; - is $@, '', 'this block should succeed'; + my $year = 2013; + + test_switch_for( $year ); + test_say_for( $year ); + test_state_for( $year ); + test_cur_sub_for( $year ); + test_array_base_for( $year ); + test_lexical_subs_for( $year ); + test_fc_for( $year ); + test_unicode_strings_for( $year ); } if ($] >= 5.018) { - eval q{ - use Modern::Perl '2014'; - eval 'sub { given (0) {} }'; - is $@, '', q|use Modern::Perl '2014' enables switch|; - eval 'sub { say 0 }'; - is $@, '', q|use Modern::Perl '2014' enables say|; - eval 'state $x'; - is $@, '', q|use Modern::Perl '2014' enables state|; - is uc "\xdf", "SS", '2014 enables unicode_strings'; - eval 'sub { return __SUB__ }'; - is $@, '', q|use Modern::Perl '2014' enables current_sub|; - my $warning = ''; - local $SIG{__WARN__} = sub { $warning = shift }; - eval '$[ = 10'; - like $warning, qr/Use of assignment to \$\[ is deprecated/, - q|use Modern::Perl '2014' disables array_base|; - eval 'fc("tschüß") eq fc("TSCHÜSS")'; - is $@, '', q|use Modern::Perl '2014' enables fc|; - eval 'my sub foo {}'; - isnt $@, '', q|use Modern::Perl '2014' does not enable lexical subs|; - }; - is $@, '', 'this block should succeed'; + my $year = 2014; + + test_switch_for( $year ); + test_say_for( $year ); + test_state_for( $year ); + test_cur_sub_for( $year ); + test_array_base_for( $year ); + test_lexical_subs_for( $year ); + test_fc_for( $year ); + test_unicode_strings_for( $year ); } if ($] >= 5.020) { - eval q{ - use Modern::Perl '2015'; - eval 'sub { given (0) {} }'; - is $@, '', q|use Modern::Perl '2015' enables switch|; - eval 'sub { say 0 }'; - is $@, '', q|use Modern::Perl '2015' enables say|; - eval 'state $x'; - is $@, '', q|use Modern::Perl '2015' enables state|; - is uc "\xdf", "SS", '2015 enables unicode_strings'; - eval 'sub { return __SUB__ }'; - is $@, '', q|use Modern::Perl '2015' enables current_sub|; - my $warning = ''; - local $SIG{__WARN__} = sub { $warning = shift }; - eval '$[ = 10'; - like $warning, qr/Use of assignment to \$\[ is deprecated/, - q|use Modern::Perl '2015' disables array_base|; - eval 'fc("tschü¼Ã")eq fc("TSCHÃS")'; - is $@, '', q|use Modern::Perl '2015' enables fc|; - eval 'my sub foo {}'; - isnt $@, '', q|use Modern::Perl '2015' does not enable lexical subs|; - }; - is $@, '', 'this block should succeed'; + my $year = 2015; + + test_switch_for( $year ); + test_say_for( $year ); + test_state_for( $year ); + test_cur_sub_for( $year ); + test_array_base_for( $year ); + test_lexical_subs_for( $year ); + test_fc_for( $year ); + test_unicode_strings_for( $year ); } if ($] >= 5.024) { - eval q{ - use Modern::Perl '2016'; - eval 'sub { given (0) {} }'; - is $@, '', q|use Modern::Perl '2016' enables switch|; - eval 'sub { say 0 }'; - is $@, '', q|use Modern::Perl '2016' enables say|; - eval 'state $x'; - is $@, '', q|use Modern::Perl '2016' enables state|; - is uc "\xdf", "SS", '2016 enables unicode_strings'; - eval 'sub { return __SUB__ }'; - is $@, '', q|use Modern::Perl '2016' enables current_sub|; - my $warning = ''; - local $SIG{__WARN__} = sub { $warning = shift }; - eval '$[ = 10'; - like $warning, qr/Use of assignment to \$\[ is deprecated/, - q|use Modern::Perl '2016' disables array_base|; - eval 'fc("tschü¼Ã")eq fc("TSCHÃS")'; - is $@, '', q|use Modern::Perl '2016' enables fc|; - eval 'my $r = [ 1, [ 2, 3 ], 4 ]; $r->[1]->@*'; - is $@, '', q|use Modern::Perl '2016' enables postderef_qq|; - eval 'my sub foo {}'; - isnt $@, '', q|use Modern::Perl '2016' does not enable lexical subs|; - }; - is $@, '', 'this block should succeed'; + my $year = 2016; + + test_switch_for( $year ); + test_say_for( $year ); + test_state_for( $year ); + test_cur_sub_for( $year ); + test_array_base_for( $year ); + test_lexical_subs_for( $year ); + test_fc_for( $year ); + test_postderef_for( $year ); + test_unicode_strings_for( $year ); } if ($] >= 5.024) { - eval q{ - use Modern::Perl '2017'; - eval 'sub { given (0) {} }'; - is $@, '', q|use Modern::Perl '2017' enables switch|; - eval 'sub { say 0 }'; - is $@, '', q|use Modern::Perl '2017' enables say|; - eval 'state $x'; - is $@, '', q|use Modern::Perl '2017' enables state|; - is uc "\xdf", "SS", '2017 enables unicode_strings'; - eval 'sub { return __SUB__ }'; - is $@, '', q|use Modern::Perl '2017' enables current_sub|; - my $warning = ''; - local $SIG{__WARN__} = sub { $warning = shift }; - eval '$[ = 10'; - like $warning, qr/Use of assignment to \$\[ is deprecated/, - q|use Modern::Perl '2017' disables array_base|; - eval 'fc("tschü¼Ã")eq fc("TSCHÃS")'; - is $@, '', q|use Modern::Perl '2017' enables fc|; - eval 'my $r = [ 1, [ 2, 3 ], 4 ]; $r->[1]->@*'; - is $@, '', q|use Modern::Perl '2017' enables postderef_qq|; - eval 'my sub foo {}'; - isnt $@, '', q|use Modern::Perl '2017' does not enable lexical subs|; - }; - is $@, '', 'this block should succeed'; + my $year = 2017; + + test_switch_for( $year ); + test_say_for( $year ); + test_state_for( $year ); + test_cur_sub_for( $year ); + test_array_base_for( $year ); + test_lexical_subs_for( $year ); + test_fc_for( $year ); + test_postderef_for( $year ); + test_unicode_strings_for( $year ); } eval 'sub { given (0) {} }';