This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #39365] Bug in toke.c (eval in subst)
authorBen Carter <bcarter@gumdrop.flyinganvil.org>
Fri, 9 Jun 2006 02:08:44 +0000 (19:08 -0700)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 20 Jun 2006 08:52:12 +0000 (08:52 +0000)
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

t/comp/parser.t
toke.c

index 439dc71..e1eff35 100644 (file)
@@ -9,7 +9,7 @@ BEGIN {
 }
 
 require "./test.pl";
-plan( tests => 59 );
+plan( tests => 60 );
 
 eval '%@x=0;';
 like( $@, qr/^Can't modify hash dereference in repeat \(x\)/, '%@x=0' );
@@ -207,3 +207,6 @@ like( $@, qr/Bad name after foo'/, 'Bad name after foo\'' );
 # test for ?: context error
 eval q{($a ? $x : ($y)) = 5};
 like( $@, qr/Assignment to both a list and a scalar/, 'Assignment to both a list and a scalar' );
+
+eval q{ s/x/#/e };
+is( $@, '', 'comments in s///e' );
diff --git a/toke.c b/toke.c
index 988b269..4eef362 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -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;