Change 32648 by [EMAIL PROTECTED] on 2007/12/19 13:58:46
Make -E require 5.11 features
Affected files ...
... //depot/perl/lib/feature.pm#25 edit
... //depot/perl/toke.c#808 edit
Differences ...
==== //depot/perl/lib/feature.pm#25 (text) ====
Index: perl/lib/feature.pm
--- perl/lib/feature.pm#24~32645~ 2007-12-19 05:47:36.000000000 -0800
+++ perl/lib/feature.pm 2007-12-19 05:58:46.000000000 -0800
@@ -9,6 +9,8 @@
state => "feature_state",
);
+# NB. the latest bundle must be loaded by the -E switch (see toke.c)
+
my %feature_bundle = (
"5.10.0" => [qw(switch say state)],
"5.11.0" => [qw(switch say state)],
==== //depot/perl/toke.c#808 (text) ====
Index: perl/toke.c
--- perl/toke.c#807~32443~ 2007-11-21 10:17:36.000000000 -0800
+++ perl/toke.c 2007-12-19 05:58:46.000000000 -0800
@@ -3654,7 +3654,7 @@
}
}
if (PL_minus_E)
- sv_catpvs(PL_linestr,"use feature ':5.10';");
+ sv_catpvs(PL_linestr,"use feature ':5.11';");
sv_catpvs(PL_linestr, "\n");
PL_oldoldbufptr = PL_oldbufptr = s = PL_linestart =
SvPVX(PL_linestr);
PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr);
End of Patch.
