diff options
| author | Ben Carter <bcarter@gumdrop.flyinganvil.org> | 2006-06-08 19:08:44 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-06-20 08:52:12 +0000 |
| commit | 2d997502fd695609fa2064523de2ba2d8d094b6c (patch) | |
| tree | 4417053f95582b818069a8af517b33d99412e3b5 /toke.c | |
| parent | 7d1bbbe8b54b3a128fb15bc6b5a4682e0cbf915b (diff) | |
| download | perl-2d997502fd695609fa2064523de2ba2d8d094b6c.tar.gz | |
[perl #39365] Bug in toke.c (eval in subst)
From: bcarter@gumdrop.flyinganvil.org (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.0.11-39365-134716.18.9775670722527@perl.org>
plus a regression test.
p4raw-id: //depot/perl@28404
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -10720,7 +10720,7 @@ S_scan_subst(pTHX_ char *start) sv_catpv(repl, es ? "eval " : "do "); sv_catpvs(repl, "{"); sv_catsv(repl, PL_lex_repl); - sv_catpvs(repl, "}"); + sv_catpvs(repl, "\n}"); SvEVALED_on(repl); SvREFCNT_dec(PL_lex_repl); PL_lex_repl = repl; |