Permalink
Browse files

Added more fixes for 5.12.

  • Loading branch information...
1 parent 847e104 commit f107536532b9d314c5c23e25b30c691fcd6aa085 @chromatic committed Jan 30, 2012
Showing with 21 additions and 16 deletions.
  1. +1 −0 Changes
  2. +20 −16 t/year_imports.t
View
1 Changes
@@ -1,6 +1,7 @@
Revision history for Modern::Perl
{{$NEXT}}
+ - fixed t/year_imports.t for 5.10 (ANDK and sprout again)
1.20120126 2012-01-25 22:15:50 America/Los_Angeles
- fixed t/regressions.t for 5.10
View
36 t/year_imports.t
@@ -44,26 +44,30 @@ is uc "\xdf", "\xdf", 'Modern::Perl () does not enable unicode_strings';
if ($] >= 5.012)
{
- 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';
+ 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';
+ };
}
if ($] >= 5.014)
{
- 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';
+ 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';
+ };
}
eval 'sub { given (0) {} }';

0 comments on commit f107536

Please sign in to comment.