From 2cd48dfddda7cedd271f0adfac2ed9f58f10189b Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 27 Dec 2007 19:31:56 +0000
Subject: [PATCH] "Automate" change 32648 (ensure that -E always loads the
 latest features)

p4raw-id: //depot/perl@32744
---
 toke.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/toke.c b/toke.c
index b13239e..04190c3 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);
-- 
2.7.4