On Mon Jan 30 02:32:34 2012, ANDK wrote:
Show quoted text
Oops. Sorry, that’s my fault.
Patch attached.
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) {} }';