"Automate" change 32648 (ensure that -E always loads the latest

features)

p4raw-id: //depot/perl@32744

1 files changed, 2 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index b13239eeea..04190c3b45 100644
--- a/toke.c
+++ b/toke.c
@@ -3654,7 +3654,8 @@ Perl_yylex(pTHX)
 		}
 	    }
 	    if (PL_minus_E)
-		sv_catpvs(PL_linestr,"use feature ':5.11';");
+		sv_catpvs(PL_linestr,
+			  "use feature ':5." STRINGIFY(PERL_VERSION) "';");
 	    sv_catpvs(PL_linestr, "\n");
 	    PL_oldoldbufptr = PL_oldbufptr = s = PL_linestart = SvPVX(PL_linestr);
 	    PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr);