In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/719a9bb07bffdcf2ec94b40afea1e3dbcf028a9e?hp=0479a84af089da76e98ee45ec853b871201b9fac>
- Log ----------------------------------------------------------------- commit 719a9bb07bffdcf2ec94b40afea1e3dbcf028a9e Author: Nicholas Clark <[email protected]> Date: Mon Jul 5 12:45:19 2010 +0100 In Perl_lex_start(), use newSVpvn_flags() to reduce source and object size. ----------------------------------------------------------------------- Summary of changes: toke.c | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/toke.c b/toke.c index 5e2dc75..0decca8 100644 --- a/toke.c +++ b/toke.c @@ -715,8 +715,8 @@ Perl_lex_start(pTHX_ SV *line, PerlIO *rsfp, bool new_filter) if (!len) { parser->linestr = newSVpvs("\n;"); } else if (SvREADONLY(line) || s[len-1] != ';' || !SvPOK(line)) { - parser->linestr = newSV_type(SVt_PV); - sv_copypv(parser->linestr, line); /* avoid tie/overload weirdness */ + /* avoid tie/overload weirdness */ + parser->linestr = newSVpvn_flags(s, len, SvUTF8(line)); if (s[len-1] != ';') sv_catpvs(parser->linestr, "\n;"); } else { -- Perl5 Master Repository
