This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
S_scan_subst() - remove extraneous code
authorDavid Mitchell <davem@iabyn.com>
Sun, 13 Nov 2016 15:03:39 +0000 (15:03 +0000)
committerDavid Mitchell <davem@iabyn.com>
Sun, 13 Nov 2016 15:27:34 +0000 (15:27 +0000)
My recent commit 6432a58 left an extraneous extra line in that sub
that was added while working up the patch then was no longer needed,
and I forgot to remove it.

Spotted by Hugo - thanks!

toke.c

diff --git a/toke.c b/toke.c
index 061b4d3..1131063 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -9439,7 +9439,6 @@ S_scan_subst(pTHX_ char *start)
        sv_catpvs(repl, "{");
        sv_catsv(repl, PL_parser->lex_sub_repl);
        sv_catpvs(repl, "}");
-       ((XPVIV*)SvANY(PL_parser->lex_sub_repl))->xiv_u.xivu_eval_seen = 1;
        SvREFCNT_dec(PL_parser->lex_sub_repl);
        PL_parser->lex_sub_repl = repl;
         es = 1;