From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 1 Jan 2005 21:34:52 +0000 (+0000)
Subject: Concatenate some string constants
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a23c4656ac4779ee705f766915428d5b91e620df;p=p5sagit%2Fp5-mst-13.2.git

Concatenate some string constants

p4raw-id: //depot/perl@23728
---

diff --git a/toke.c b/toke.c
index 2e652e4..8832d08 100644
--- a/toke.c
+++ b/toke.c
@@ -2631,8 +2631,8 @@ Perl_yylex(pTHX)
 		    PL_doextract = FALSE;
 		}
 		if (!PL_in_eval && (PL_minus_n || PL_minus_p)) {
-		    sv_setpv(PL_linestr,PL_minus_p ? ";}continue{print" : "");
-		    sv_catpv(PL_linestr,";}");
+		    sv_setpv(PL_linestr,PL_minus_p
+			     ? ";}continue{print;}" : ";}");
 		    PL_oldoldbufptr = PL_oldbufptr = s = PL_linestart = SvPVX(PL_linestr);
 		    PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr);
 		    PL_last_lop = PL_last_uni = Nullch;