This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #114040] Allow pod in quoted constructs
authorFather Chrysostomos <sprout@cpan.org>
Fri, 17 Aug 2012 21:45:29 +0000 (14:45 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 17 Aug 2012 23:45:22 +0000 (16:45 -0700)
commit4a7239ff0b409a13fa6982413ce503f8e5fa07c3
tree6edbd2c43d1c1c6409cd2dc18dce338530f05cba
parent7c93c29bad5a630df394ef899b8f995cc29154c8
[perl #114040] Allow pod in quoted constructs

When the case = in toke.c:yylex is reached and PL_lex_state is
not LEX_NORMAL, that means we are in some sort of quoted construct,
and the entire construct’s content is in the current line buffer
(which, consequently contains more than one line).  So we need to check
that when encountering pod.  Quoted constructs need to be treated the
same way as string eval, which also puts all the code in the line
buffer.
t/comp/parser.t
toke.c