Skip Menu |

This queue is for tickets about the Modern-Perl CPAN distribution.

Report information
The Basics
Id: 74523
Status: resolved
Priority: 0/
Queue: Modern-Perl

People
Owner: Nobody in particular
Requestors: ANDK [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 1.20120126
Fixed in: (no value)



Subject: Fails with 5.12.*
META.yml and *.PL say 5.010 but below 5.14.0 tests only fail: http://matrix.cpantesters.org/?dist=Modern-Perl%201.20120126 What gives?
On Mon Jan 30 02:32:34 2012, ANDK wrote: Show quoted text
> META.yml and *.PL say 5.010 but below 5.14.0 tests only fail: > > http://matrix.cpantesters.org/?dist=Modern-Perl%201.20120126 > > What gives?
Oops. Sorry, that’s my fault. Patch attached.
Subject: open_kcBcB16g.txt
diff -rup Modern-Perl-1.20120126-jUNrUL-orig/t/year_imports.t Modern-Perl-1.20120126-jUNrUL/t/year_imports.t --- Modern-Perl-1.20120126-jUNrUL-orig/t/year_imports.t 2012-01-25 22:15:51.000000000 -0800 +++ Modern-Perl-1.20120126-jUNrUL/t/year_imports.t 2012-01-30 08:34:52.000000000 -0800 @@ -44,6 +44,7 @@ is uc "\xdf", "\xdf", 'Modern::Perl () d if ($] >= 5.012) { + eval q{ use Modern::Perl '2011'; eval 'sub { given (0) {} }'; is $@, '', q|use Modern::Perl '2011' enables switch|; @@ -52,10 +53,12 @@ if ($] >= 5.012) eval 'state $x'; is $@, '', q|use Modern::Perl '2011' enables state|; is uc "\xdf", "SS", '2011 enables unicode_strings'; + }; } if ($] >= 5.014) { + eval q{ use Modern::Perl '2012'; eval 'sub { given (0) {} }'; is $@, '', q|use Modern::Perl '2012' enables switch|; @@ -64,6 +67,7 @@ if ($] >= 5.014) eval 'state $x'; is $@, '', q|use Modern::Perl '2012' enables state|; is uc "\xdf", "SS", '2012 enables unicode_strings'; + }; } eval 'sub { given (0) {} }';
Should be fixed in 1.20120130. Thanks!