<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">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 ($] &gt;= 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 ($] &gt;= 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 ($] &gt;= 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';
 }
</pre></body></html>