This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #77452] Deparse { ...; BEGIN{} } correctly
authorFather Chrysostomos <sprout@cpan.org>
Thu, 20 Nov 2014 17:23:35 +0000 (09:23 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 21 Nov 2014 04:17:18 +0000 (20:17 -0800)
commit34b54951568575920f2307bea918f5549bd5a82f
treeaea97f1e1778d7276ecf9b14e817a5f77965109d
parent05be69bb15d7a722ee6bca574d29b98314e34918
[perl #77452] Deparse { ...; BEGIN{} } correctly

8635e3c2 (5.21.6) changed the COP sequence numbers for nested blocks,
such that most BEGIN blocks (incl. ‘use’ statements) and sub declara-
tions end up in the right place.  However, it had the side effect of
causing declarations at the end of the enclosing scope to fall out of
it and appear below.

This commit fixes that by adding an extra nulled COP to the end of the
enclosing scope if that scope ends with a sub, so the final declara-
tion gets deparsed before it.

The frequency of sub declarations at the end of the enclosing scope is
sufficiently low (I’m guessing a bit here) that this slight increase
in run-time memory usage is probably acceptable.

I had to change B::Deparse to deparse nulled COPs the same way it does
live COPs, which means we get more extraneous semicolons than before.
I hope to fix that in a forthcoming commit.  I also ran into a B bug,
in that null ops are not presented to Perl code with the right op
class (see the blessing in the patch).  I plan to fix that in a separ-
ate commit, too.
ext/B/t/concise-xs.t
lib/B/Deparse.pm
lib/B/Deparse.t
op.c
parser.h
perly.act
perly.h
perly.tab
perly.y