From: Nicholas Clark Date: Thu, 27 Dec 2007 19:31:56 +0000 (+0000) Subject: "Automate" change 32648 (ensure that -E always loads the latest X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2cd48dfddda7cedd271f0adfac2ed9f58f10189b;p=p5sagit%2Fp5-mst-13.2.git "Automate" change 32648 (ensure that -E always loads the latest features) p4raw-id: //depot/perl@32744 --- 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);