Hello community,
here is the log from the commit of package perl-Modern-Perl for
openSUSE:Factory checked in at 2013-06-06 12:21:20
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
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
2012-03-01 17:25:05.000000000 +0100
+++ /work/SRC/openSUSE:Factory/.perl-Modern-Perl.new/perl-Modern-Perl.changes
2013-06-06 12:21:21.000000000 +0200
@@ -1,0 +2,8 @@
+Wed Jun 5 18:41:01 UTC 2013 - co...@suse.com
+
+- updated to 1.20121103
+ - fixed VERSION( undef ) (Peter Vereshagin, RT #80304)
+ - fixed POD encoding error (Norbert E. Grüner, RT #80468)
+ - added Perl 5.16 support
+
+-------------------------------------------------------------------
Old:
----
Modern-Perl-1.20120130.tar.gz
New:
----
Modern-Perl-1.20121103.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Modern-Perl.spec ++++++
--- /var/tmp/diff_new_pack.pTqVri/_old 2013-06-06 12:21:22.000000000 +0200
+++ /var/tmp/diff_new_pack.pTqVri/_new 2013-06-06 12:21:22.000000000 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-Modern-Perl
#
-# Copyright (c) 2012 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2013 SUSE LINUX Products 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.20120130
+Version: 1.20121103
Release: 0
%define cpan_name Modern-Perl
Summary: enable all of the features of Modern Perl with one import
++++++ Modern-Perl-1.20120130.tar.gz -> Modern-Perl-1.20121103.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Modern-Perl-1.20120130/Build.PL
new/Modern-Perl-1.20121103/Build.PL
--- old/Modern-Perl-1.20120130/Build.PL 2012-01-30 20:38:10.000000000 +0100
+++ new/Modern-Perl-1.20121103/Build.PL 2012-11-03 21:30:27.000000000 +0100
@@ -19,7 +19,7 @@
"chromatic"
],
"dist_name" => "Modern-Perl",
- "dist_version" => "1.20120130",
+ "dist_version" => "1.20121103",
"license" => "perl",
"module_name" => "Modern::Perl",
"recommends" => {},
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Modern-Perl-1.20120130/Changes
new/Modern-Perl-1.20121103/Changes
--- old/Modern-Perl-1.20120130/Changes 2012-01-30 20:38:10.000000000 +0100
+++ new/Modern-Perl-1.20121103/Changes 2012-11-03 21:30:27.000000000 +0100
@@ -1,5 +1,12 @@
Revision history for Modern::Perl
+1.20121103 2012-11-03 13:30:26 America/Los_Angeles
+ - fixed VERSION( undef ) (Peter Vereshagin, RT #80304)
+ - fixed POD encoding error (Norbert E. Grüner, RT #80468)
+
+1.20120521 2012-05-21 15:58:59 America/Los_Angeles
+ - added Perl 5.16 support
+
1.20120130 2012-01-30 11:38:08 America/Los_Angeles
- fixed t/year_imports.t for 5.10 (ANDK and sprout again)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Modern-Perl-1.20120130/META.yml
new/Modern-Perl-1.20121103/META.yml
--- old/Modern-Perl-1.20120130/META.yml 2012-01-30 20:38:10.000000000 +0100
+++ new/Modern-Perl-1.20121103/META.yml 2012-11-03 21:30:27.000000000 +0100
@@ -9,7 +9,7 @@
ExtUtils::MakeMaker: 6.30
Module::Build: 0.3601
dynamic_config: 0
-generated_by: 'Dist::Zilla version 4.300006, CPAN::Meta::Converter version
2.113640'
+generated_by: 'Dist::Zilla version 4.300028, CPAN::Meta::Converter version
2.120921'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -27,4 +27,4 @@
resources:
homepage: https://github.com/chromatic/Modern-Perl
repository: https://github.com/chromatic/Modern-Perl.git
-version: 1.20120130
+version: 1.20121103
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Modern-Perl-1.20120130/Makefile.PL
new/Modern-Perl-1.20121103/Makefile.PL
--- old/Modern-Perl-1.20120130/Makefile.PL 2012-01-30 20:38:10.000000000
+0100
+++ new/Modern-Perl-1.20121103/Makefile.PL 2012-11-03 21:30:27.000000000
+0100
@@ -32,7 +32,7 @@
"strict" => 0,
"warnings" => 0
},
- "VERSION" => "1.20120130",
+ "VERSION" => "1.20121103",
"test" => {
"TESTS" => "t/*.t"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Modern-Perl-1.20120130/lib/Modern/Perl.pm
new/Modern-Perl-1.20121103/lib/Modern/Perl.pm
--- old/Modern-Perl-1.20120130/lib/Modern/Perl.pm 2012-01-30
20:38:10.000000000 +0100
+++ new/Modern-Perl-1.20121103/lib/Modern/Perl.pm 2012-11-03
21:30:27.000000000 +0100
@@ -1,6 +1,6 @@
package Modern::Perl;
{
- $Modern::Perl::VERSION = '1.20120130';
+ $Modern::Perl::VERSION = '1.20121103';
}
# ABSTRACT: enable all of the features of Modern Perl with one import
@@ -22,7 +22,9 @@
sub VERSION
{
my ($self, $version) = @_;
- return $VERSION if $version < 2009;
+
+ return $VERSION unless defined $version;
+ return $VERSION if $version < 2009;
$wanted_date = $version if (caller(1))[3] =~ /::BEGIN/;
return 2012;
@@ -55,6 +57,7 @@
2010 => ':5.10',
2011 => ':5.12',
2012 => ':5.14',
+ 2013 => ':5.16',
);
sub validate_date
@@ -78,6 +81,7 @@
1;
__END__
+
=pod
=head1 NAME
@@ -86,7 +90,7 @@
=head1 VERSION
-version 1.20120130
+version 1.20121103
=head1 SYNOPSIS
@@ -125,16 +129,23 @@
use Modern::Perl '2011';
-... enables 5.12 features and:
+... enables 5.12 features:
use Modern::Perl '2012';
-... enables 5.14 features. Obviously you cannot use 5.14 features on earlier
-versions, and Perl will throw the appropriate exception if you try.
+... enables 5.14 features, and:
+
+ use Modern::Perl '2013';
-In the future--probably the C<Modern::Perl> 2013 timeframe--this module may
-drop support for 5.10 and will complain (once per process) if you use a year
-too old.
+... enables 5.16 features. Obviously you cannot use newer features on earlier
+versions. Perl will throw the appropriate exception if you try.
+
+In the near future--sometime around September 2012--this module may drop
+support for 5.10 and will complain (once per process) if you use a year too
+old. As of May 2012, Perl 5.12 is unsupported by the Perl 5 Porters, so please
+consider upgrading.
+
+=encoding utf8
=head1 AUTHOR
@@ -183,8 +194,9 @@
Damian Conway (inspiration from L<Toolkit>), Florian Ragwitz
(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, and Father
-Chrysostomos for reporting bugs, filing patches, and requesting features.
+David Moreno, Evan Carroll, Elliot Shank, Andreas König, Father Chrysostomos,
+and Norbert E. Grüner for reporting bugs, filing patches, and requesting
+features.
=head1 COPYRIGHT & LICENSE
@@ -205,4 +217,3 @@
the same terms as the Perl 5 programming language system itself.
=cut
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Modern-Perl-1.20120130/t/regressions.t
new/Modern-Perl-1.20121103/t/regressions.t
--- old/Modern-Perl-1.20120130/t/regressions.t 2012-01-30 20:38:10.000000000
+0100
+++ new/Modern-Perl-1.20121103/t/regressions.t 2012-11-03 21:30:27.000000000
+0100
@@ -78,4 +78,17 @@
isnt $@, '', 'state feature does not leak out';
is uc "\xdf", "\xdf", 'unicode_strings feature does not leak out';
+
+# RT #80304: warning on Modern::Perl->VERSION()
+{
+ my $warning = '';
+ local $SIG{__WARN__} = sub { $warning = shift };
+ $Modern::Perl::VERSION ||= '1.20121103';
+
+ my $version = Modern::Perl->VERSION;
+ like $version, qr/1\.201\d/,
+ 'VERSION() should return version number, given no argument';
+ is $warning, '', '... without warning about undef argument';
+}
+
done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Modern-Perl-1.20120130/t/year_imports.t
new/Modern-Perl-1.20121103/t/year_imports.t
--- old/Modern-Perl-1.20120130/t/year_imports.t 2012-01-30 20:38:10.000000000
+0100
+++ new/Modern-Perl-1.20121103/t/year_imports.t 2012-11-03 21:30:27.000000000
+0100
@@ -19,6 +19,12 @@
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 = '';
+local $SIG{__WARN__} = sub { $warning = shift };
+eval 'fc("tschüß") eq fc("TSCHÜSS")';
+isnt $@, '', q|use Modern::Perl () does not enable fc|;
{
use Modern::Perl '2009';
@@ -70,6 +76,30 @@
};
}
+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|;
+ };
+ is $@, '', 'this block should succeed';
+}
+
eval 'sub { given (0) {} }';
isnt $@, "", 'switch feature does not leak out';
eval 'sub { say 0 }';
--
To unsubscribe, e-mail: opensuse-commit+unsubscr...@opensuse.org
For additional commands, e-mail: opensuse-commit+h...@opensuse.org
