Change newSVpv() to newSVpvn() where we know the length is non-zero, as

newSVpvn() will be fractionally more efficient.

p4raw-id: //depot/perl@32135

1 files changed, 1 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index eb7c18cb06..f8d207c292 100644
--- a/toke.c
+++ b/toke.c
@@ -5346,7 +5346,7 @@ Perl_yylex(pTHX)
 #ifdef PERL_MAD
 		if (PL_madskills && !PL_thistoken) {
 		    char *start = SvPVX(PL_linestr) + PL_realtokenstart;
-		    PL_thistoken = newSVpv(start,s - start);
+		    PL_thistoken = newSVpvn(start,s - start);
 		    PL_realtokenstart = s - SvPVX(PL_linestr);
 		}
 #endif