From: Gisle Aas <gisle@activestate.com>
Date: Wed, 4 Jan 2006 12:35:45 +0000 (+0000)
Subject: Removed unused part of string passed to sv_catpvn().
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bd5fcaa6efcc067647598367721b802e1f87eaa2;p=p5sagit%2Fp5-mst-13.2.git

Removed unused part of string passed to sv_catpvn().

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

diff --git a/toke.c b/toke.c
index 35d2639..be5fae2 100644
--- a/toke.c
+++ b/toke.c
@@ -9629,7 +9629,7 @@ S_scan_subst(pTHX_ char *start)
 	    sv_catpv(repl, es ? "eval " : "do ");
 	sv_catpvn(repl, "{ ", 2);
 	sv_catsv(repl, PL_lex_repl);
-	sv_catpvn(repl, " };", 2);
+	sv_catpvn(repl, " }", 2);
 	SvEVALED_on(repl);
 	SvREFCNT_dec(PL_lex_repl);
 	PL_lex_repl = repl;