Change 26640 by [EMAIL PROTECTED] on 2006/01/04 12:35:45
Removed unused part of string passed to sv_catpvn().
Affected files ...
... //depot/perl/toke.c#623 edit
Differences ...
==== //depot/perl/toke.c#623 (text) ====
Index: perl/toke.c
--- perl/toke.c#622~26635~ 2006-01-04 02:44:48.000000000 -0800
+++ perl/toke.c 2006-01-04 04:35:45.000000000 -0800
@@ -9629,7 +9629,7 @@
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;
End of Patch.
