This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Another refactoring from Larry implicit in the MAD patch.
authorNicholas Clark <nick@ccl4.org>
Thu, 9 Mar 2006 19:00:26 +0000 (19:00 +0000)
committerNicholas Clark <nick@ccl4.org>
Thu, 9 Mar 2006 19:00:26 +0000 (19:00 +0000)
p4raw-id: //depot/perl@27444

toke.c

diff --git a/toke.c b/toke.c
index f69f28a..4342c11 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -9769,9 +9769,9 @@ S_scan_subst(pTHX_ char *start)
        pm->op_pmflags |= PMf_EVAL;
        while (es-- > 0)
            sv_catpv(repl, es ? "eval " : "do ");
-       sv_catpvs(repl, "{ ");
+       sv_catpvs(repl, "{");
        sv_catsv(repl, PL_lex_repl);
-       sv_catpvs(repl, " }");
+       sv_catpvs(repl, "}");
        SvEVALED_on(repl);
        SvREFCNT_dec(PL_lex_repl);
        PL_lex_repl = repl;