This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #108224] B::Deparse doesn't recognize for continue block
authorHojung Youn <amoc.yn@gmail.com>
Sun, 15 Jan 2012 03:03:19 +0000 (12:03 +0900)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 15 Jan 2012 06:36:42 +0000 (22:36 -0800)
commitafb6044893775fdeb26b2c53726e3af1c6b1758f
tree4a36df21e31d0a2a5965fe1114e9fe4ee0577a4b
parentcadced9f89793cf41f9fc990c0320da059d19b98
[perl #108224] B::Deparse doesn't recognize for continue block

B::Deparse foreach scoping problem was fixed at cf24a84005,
which was issued at #30504. But B::Deparse was blinded
temporarily by this commit so that it couldn't recognize
foreach continue block for a moment.

foreach statement generates 'nextstate', 'stub', 'leave', or
'scope' root opcode at will when foreach statement is not used
as a oneline statement modifier. So all the case of opcodes
should be checked.

Some tests for foreach scoping and continue block are attached.

related: #30504
dist/B-Deparse/Deparse.pm
dist/B-Deparse/t/deparse.t