diff -rup Modern-Perl-1.20150127-pK87bZ-orig/t/year_imports.t Modern-Perl-1.20150127-pK87bZ/t/year_imports.t --- Modern-Perl-1.20150127-pK87bZ-orig/t/year_imports.t 2015-01-26 23:21:54.000000000 -0800 +++ Modern-Perl-1.20150127-pK87bZ/t/year_imports.t 2016-05-25 15:45:05.000000000 -0700 @@ -99,8 +99,6 @@ if ($] >= 5.016) q|use Modern::Perl '2013' disables array_base|; eval 'fc("tschüß") eq fc("TSCHÜSS")'; is $@, '', q|use Modern::Perl '2013' enables fc|; - eval 'my sub foo {}'; - isnt $@, '', q|use Modern::Perl '2013' should not enable lexical subs|; }; is $@, '', 'this block should succeed'; } @@ -125,8 +123,6 @@ if ($] >= 5.018) q|use Modern::Perl '2014' disables array_base|; eval 'fc("tschüß") eq fc("TSCHÜSS")'; is $@, '', q|use Modern::Perl '2014' enables fc|; - eval 'my sub foo {}'; - isnt $@, '', q|use Modern::Perl '2014' does not enable lexical subs|; }; is $@, '', 'this block should succeed'; } @@ -151,8 +147,6 @@ if ($] >= 5.020) q|use Modern::Perl '2015' disables array_base|; eval 'fc("tschü¼Ã")eq fc("TSCHÃS")'; is $@, '', q|use Modern::Perl '2015' enables fc|; - eval 'my sub foo {}'; - isnt $@, '', q|use Modern::Perl '2015' does not enable lexical subs|; }; is $@, '', 'this block should succeed'; }