From 719a9bb07bffdcf2ec94b40afea1e3dbcf028a9e Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 5 Jul 2010 12:45:19 +0100
Subject: [PATCH] In Perl_lex_start(), use newSVpvn_flags() to reduce source
 and object size.

---
 toke.c | 4 ++--
 1 file 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 {
-- 
2.7.4