Change 32744 by [EMAIL PROTECTED] on 2007/12/27 19:31:56
"Automate" change 32648 (ensure that -E always loads the latest
features)
Affected files ...
... //depot/perl/toke.c#809 edit
Differences ...
==== //depot/perl/toke.c#809 (text) ====
Index: perl/toke.c
--- perl/toke.c#808~32648~ 2007-12-19 05:58:46.000000000 -0800
+++ perl/toke.c 2007-12-27 11:31:56.000000000 -0800
@@ -3654,7 +3654,8 @@
}
}
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);
End of Patch.
