In perl.git, the branch sprout/heredoc has been created
<http://perl5.git.perl.org/perl.git/commitdiff/b9e3b3a21441685713979e37385c1d684b9a2411?hp=0000000000000000000000000000000000000000>
at b9e3b3a21441685713979e37385c1d684b9a2411 (commit)
- Log -----------------------------------------------------------------
commit b9e3b3a21441685713979e37385c1d684b9a2411
Author: Father Chrysostomos <spr...@cpan.org>
Date: Thu Sep 18 01:16:36 2014 -0700
toke.c: Fix bad read in S_scan_heredoc
If the first character of a source line matched the first character
of the here-doc terminator, then we did a memEQ with the length of
the terminator, without regard to the length of the line, which
could be shorter.
This bug goes all the way back to perl 3.000, which introduced here-
docs. Line 1802 of toke.c in perl 3.000 is:
if (*s == term && bcmp(s,tokenbuf,len) == 0) {
and contains the same bug.
-----------------------------------------------------------------------
--
Perl5 Master Repository
