From: Daniel Dragan <bulk88@hotmail.com>
Date: Sat, 27 Oct 2012 09:18:49 +0000 (-0400)
Subject: yyerror->yyerror_pvn in toke.c:S_new_constant
X-Git-Tag: upstream/5.20.0~5004
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=c06ecf4f38015d4985dd5994aebe5c15908d2f26;p=platform%2Fupstream%2Fperl.git

yyerror->yyerror_pvn in toke.c:S_new_constant

Avoids a strlen.
---

diff --git a/toke.c b/toke.c
index e4c1f80..a382619 100644
--- a/toke.c
+++ b/toke.c
@@ -8974,8 +8974,11 @@ now_ok:
 
     /* Check the eval first */
     if (!PL_in_eval && SvTRUE(ERRSV)) {
- 	sv_catpvs(ERRSV, "Propagated");
-	yyerror(SvPV_nolen_const(ERRSV)); /* Duplicates the message inside eval */
+	STRLEN errlen;
+	const char * errstr;
+	sv_catpvs(ERRSV, "Propagated");
+	errstr = SvPV_const(ERRSV, errlen);
+	yyerror_pvn(errstr, errlen, 0); /* Duplicates the message inside eval */
 	(void)POPs;
 	res = SvREFCNT_inc_simple(sv);
     }