This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
toke.c:scan_heredoc: Remove unnecessary assignment
authorFather Chrysostomos <sprout@cpan.org>
Thu, 30 Aug 2012 03:39:55 +0000 (20:39 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 31 Aug 2012 01:18:10 +0000 (18:18 -0700)
Updating PL_bufend after lex_next_chunk is not necessary, as
lex_next_chunk itself does it.

toke.c

diff --git a/toke.c b/toke.c
index 8ac754e..24c532f 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -9773,7 +9773,6 @@ S_scan_heredoc(pTHX_ register char *s)
        stuffstart = s - SvPVX(PL_linestr);
 #endif
        shared->herelines++;
-       PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr);
        PL_last_lop = PL_last_uni = NULL;
 #ifndef PERL_STRICT_CR
        if (PL_bufend - PL_linestart >= 2) {