Removed unused part of string passed to sv_catpvn().

p4raw-id: //depot/perl@26640

1 files changed, 1 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index 35d2639a99..be5fae2d1d 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;