Hello community, here is the log from the commit of package perl-Modern-Perl for openSUSE:Factory checked in at 2017-01-18 21:43:17 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 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-10 10:46:31.365643462 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Modern-Perl.new/perl-Modern-Perl.changes 2017-01-18 21:43:18.791797934 +0100 @@ -1,0 +2,11 @@ +Mon Jan 16 06:06:24 UTC 2017 - [email protected] + +- updated to 1.20170115 + see /usr/share/doc/packages/perl-Modern-Perl/Changes + + 1.20170115 2017-01-15 13:22:05-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) + +------------------------------------------------------------------- Old: ---- Modern-Perl-1.20161229.tar.gz New: ---- Modern-Perl-1.20170115.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Modern-Perl.spec ++++++ --- /var/tmp/diff_new_pack.pV5wEe/_old 2017-01-18 21:43:19.183742496 +0100 +++ /var/tmp/diff_new_pack.pV5wEe/_new 2017-01-18 21:43:19.187741930 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-Modern-Perl # -# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2017 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-Modern-Perl -Version: 1.20161229 +Version: 1.20170115 Release: 0 %define cpan_name Modern-Perl Summary: Enable All of the Features of Modern Perl with One Import ++++++ Modern-Perl-1.20161229.tar.gz -> Modern-Perl-1.20170115.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Modern-Perl-1.20161229/Build.PL new/Modern-Perl-1.20170115/Build.PL --- old/Modern-Perl-1.20161229/Build.PL 2016-12-29 01:02:18.000000000 +0100 +++ new/Modern-Perl-1.20170115/Build.PL 2017-01-15 22:22:06.000000000 +0100 @@ -1,5 +1,5 @@ -# This file was automatically generated by Dist::Zilla::Plugin::ModuleBuild v5.043. +# This file was automatically generated by Dist::Zilla::Plugin::ModuleBuild v6.008. use strict; use warnings; @@ -19,7 +19,7 @@ "chromatic" ], "dist_name" => "Modern-Perl", - "dist_version" => "1.20161229", + "dist_version" => "1.20170115", "license" => "perl", "module_name" => "Modern::Perl", "recursive_test_files" => 1, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Modern-Perl-1.20161229/Changes new/Modern-Perl-1.20170115/Changes --- old/Modern-Perl-1.20161229/Changes 2016-12-29 01:02:18.000000000 +0100 +++ new/Modern-Perl-1.20170115/Changes 2017-01-15 22:22:06.000000000 +0100 @@ -1,5 +1,10 @@ Revision history for Modern::Perl +1.20170115 2017-01-15 13:22:05-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) + 1.20161229 2016-12-28 16:02:17-08:00 America/Los_Angeles - improved VERSION numbering (Gryphon Shafer, GH #5) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Modern-Perl-1.20161229/MANIFEST new/Modern-Perl-1.20170115/MANIFEST --- old/Modern-Perl-1.20161229/MANIFEST 2016-12-29 01:02:18.000000000 +0100 +++ new/Modern-Perl-1.20170115/MANIFEST 2017-01-15 22:22:06.000000000 +0100 @@ -1,4 +1,4 @@ -# This file was automatically generated by Dist::Zilla::Plugin::Manifest v5.043. +# This file was automatically generated by Dist::Zilla::Plugin::Manifest v6.008. Build.PL Changes LICENSE diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Modern-Perl-1.20161229/META.yml new/Modern-Perl-1.20170115/META.yml --- old/Modern-Perl-1.20161229/META.yml 2016-12-29 01:02:18.000000000 +0100 +++ new/Modern-Perl-1.20170115/META.yml 2017-01-15 22:22:06.000000000 +0100 @@ -9,7 +9,7 @@ ExtUtils::MakeMaker: '0' Module::Build: '0.28' dynamic_config: 0 -generated_by: 'Dist::Zilla version 5.043, CPAN::Meta::Converter version 2.150001' +generated_by: 'Dist::Zilla version 6.008, CPAN::Meta::Converter version 2.150005' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -27,4 +27,5 @@ resources: homepage: https://github.com/chromatic/Modern-Perl repository: https://github.com/chromatic/Modern-Perl.git -version: '1.20161229' +version: '1.20170115' +x_serialization_backend: 'YAML::Tiny version 1.69' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Modern-Perl-1.20161229/Makefile.PL new/Modern-Perl-1.20170115/Makefile.PL --- old/Modern-Perl-1.20161229/Makefile.PL 2016-12-29 01:02:18.000000000 +0100 +++ new/Modern-Perl-1.20170115/Makefile.PL 2017-01-15 22:22:06.000000000 +0100 @@ -1,4 +1,4 @@ -# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v5.043. +# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v6.008. use strict; use warnings; @@ -32,7 +32,7 @@ "TEST_REQUIRES" => { "Test::More" => "0.98" }, - "VERSION" => "1.20161229", + "VERSION" => "1.20170115", "test" => { "TESTS" => "t/*.t" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Modern-Perl-1.20161229/README new/Modern-Perl-1.20170115/README --- old/Modern-Perl-1.20161229/README 2016-12-29 01:02:18.000000000 +0100 +++ new/Modern-Perl-1.20170115/README 2017-01-15 22:22:06.000000000 +0100 @@ -40,7 +40,7 @@ COPYRIGHT AND LICENCE -Copyright (C) 2009-2016 chromatic +Copyright (C) 2009-2017 chromatic This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Modern-Perl-1.20161229/lib/Modern/Perl.pm new/Modern-Perl-1.20170115/lib/Modern/Perl.pm --- old/Modern-Perl-1.20161229/lib/Modern/Perl.pm 2016-12-29 01:02:18.000000000 +0100 +++ new/Modern-Perl-1.20170115/lib/Modern/Perl.pm 2017-01-15 22:22:06.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.20161229'; +$Modern::Perl::VERSION = '1.20170115'; use 5.010_000; use strict; @@ -18,11 +18,11 @@ { my ($self, $version) = @_; - return $Modern::Perl::VERSION || 2016 unless defined $version; - return $Modern::Perl::VERSION || 2016 if $version < 2009; + return $Modern::Perl::VERSION || 2017 unless defined $version; + return $Modern::Perl::VERSION || 2017 if $version < 2009; $wanted_date = $version if (caller(1))[3] =~ /::BEGIN/; - return 2016; + return 2017; } sub import @@ -56,6 +56,7 @@ 2014 => ':5.18', 2015 => ':5.20', 2016 => ':5.24', + 2017 => ':5.24', ); sub validate_date @@ -90,7 +91,7 @@ =head1 VERSION -version 1.20161229 +version 1.20170115 =head1 SYNOPSIS @@ -117,10 +118,20 @@ L<http://onyxneon.com/books/modern_perl/index.html> for a freely-downloadable Modern Perl tutorial. +=head2 Wrapping Modern::Perl + +If you want to wrap Modern::Perl in your own C<import()> method, you can do so +to add additional pragmas or features, such as the use of L<Try::Tiny>. Please +note that, if you do so, you will I<not> automatically enable C3 method +resolution in the calling scope. This is due to how the L<mro> pragma works. In +your custom C<import()> method, you will need to write code such as: + + mro::set_mro( scalar caller(), 'c3' ); + =head2 Forward Compatibility -For forward compatibility, I recommend you specify a I<year> as the single -optional import tag. For example: +For forward compatibility, I recommend you specify a string containing a +I<year> value as the single optional import tag. For example: use Modern::Perl '2009'; use Modern::Perl '2010'; @@ -149,6 +160,10 @@ use Modern::Perl '2016'; +... enables 5.24 features, and: + + use Modern::Perl '2017'; + ... enables 5.24 features. Obviously you cannot use newer features on earlier @@ -202,15 +217,15 @@ (L<B::Hooks::Parser>, so I didn't have to write it myself), chocolateboy (for suggesting that I don't even need L<B::Hooks::Parser>), Damien Learns Perl, David Moreno, Evan Carroll, Elliot Shank, Andreas König, Father Chrysostomos, -and Norbert E. Grüner for reporting bugs, filing patches, and requesting -features. +Gryphon Shafer, and Norbert E. Grüner for reporting bugs, filing patches, and +requesting features. =head1 COPYRIGHT & LICENSE -Copyright 2009-2016 chromatic, all rights reserved. +Copyright 2009-2017 chromatic, all rights reserved. This program is free software; you can redistribute it and/or modify it -under the same terms as Perl 5.18 itself. +under the same terms as Perl 5.24 itself. =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Modern-Perl-1.20161229/t/year_imports.t new/Modern-Perl-1.20170115/t/year_imports.t --- old/Modern-Perl-1.20161229/t/year_imports.t 2016-12-29 01:02:18.000000000 +0100 +++ new/Modern-Perl-1.20170115/t/year_imports.t 2017-01-15 22:22:06.000000000 +0100 @@ -185,6 +185,34 @@ is $@, '', 'this block should succeed'; } +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'; +} + eval 'sub { given (0) {} }'; isnt $@, "", 'switch feature does not leak out'; eval 'sub { say 0 }';
