From 13a7998c934604b70722fbb6c3a73e74f3b8a490 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Wed, 19 Dec 2007 13:58:46 +0000 Subject: [PATCH] Make -E require 5.11 features p4raw-id: //depot/perl@32648 --- lib/feature.pm | 2 ++ toke.c | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/lib/feature.pm b/lib/feature.pm index a62352b..f4e2ef8 100644 --- a/lib/feature.pm +++ b/lib/feature.pm @@ -9,6 +9,8 @@ my %feature = ( 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)], diff --git a/toke.c b/toke.c index 910852d..b13239e 100644 --- a/toke.c +++ b/toke.c @@ -3654,7 +3654,7 @@ Perl_yylex(pTHX) } } 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); -- 1.8.3.1