On Wed May 25 02:17:31 2016, ANDK wrote:
Show quoted text
lexical_subs were never part of a feature bundle, so I don’t even know why Modern::Perl is testing them. The easiest thing is to delete the offending tests. See the attachment.
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';
}