This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
toke.c: In sublex_push use multi_close to detect here-doc
authorFather Chrysostomos <sprout@cpan.org>
Sat, 7 Sep 2013 06:45:36 +0000 (23:45 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 8 Sep 2013 01:34:36 +0000 (18:34 -0700)
commit801d32ac4fd337a99a83ad6098cda0f368bb8b03
treedb6cfbfcef96e47af34ae10c8c49b4e1f0ceaf93
parent2f92fb87980640b1a91069ce05dd7a0048838833
toke.c: In sublex_push use multi_close to detect here-doc

It is a lot simpler this way.  scan_heredoc already sets PL_multi_close
to '<' (the only code that does it).  That value does not appear to
be used anywhere.  Now it is.

Furthermore, this removes assumptions that the next commit will
likely violate.
toke.c