This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Don’t crash with formats in special blocks
authorFather Chrysostomos <sprout@cpan.org>
Fri, 29 Jun 2012 19:41:21 +0000 (12:41 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 30 Jun 2012 05:20:12 +0000 (22:20 -0700)
commit4a273b91c8e47ab37c6dd310072403d4fe2d0fb9
treed6a0d09ab56dcddf2bb5ffee0858f5dfb7820653
parent61984ee1c56aaa8a989b7eed4cbc2effd74177c5
Don’t crash with formats in special blocks

Commit 421f30ed1e9 didn’t go far enough.  If a special block happens
to replace a stub, then a format trying to close over variables in the
special block will be pointing to the wrong outer sub.

Such stubs shouldn’t usually happen, but perl shouldn’t crash.
perly.act
perly.h
perly.tab
perly.y
t/comp/form_scope.t