This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix line numbers in <<foo,<<bar
authorFather Chrysostomos <sprout@cpan.org>
Sat, 7 Sep 2013 07:27:28 +0000 (00:27 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 8 Sep 2013 01:34:36 +0000 (18:34 -0700)
This used to print 9:

<<foo, <<bar
a
b
c
d
e
f
g
foo
${warn __LINE__ }
bar

even though the __LINE__ marker is on line 10.  In perl 5.18, I broke
it further, making it print 2.

This commit makes it print 10.  We just need to make sure
PL_multi_start is set correctly in scan_heredoc for a second here-doc
marker on the same line.


No differences found