This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #99850] SEGV when destructor undefs goto &sub
authorFather Chrysostomos <sprout@cpan.org>
Sun, 27 Nov 2011 19:41:44 +0000 (11:41 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 27 Nov 2011 19:41:44 +0000 (11:41 -0800)
commit1d59c038541d06bcc3c0126ba2a62aefd47228a2
tree0a9e1f0534ea3ae4e0781aab69f8bc9498567d7d
parent6cf90346c90a7451f8f74cf11ba01d8571efb824
[perl #99850] SEGV when destructor undefs goto &sub

If goto &sub triggers a destructor that undefines &sub, a
crash ensues.

This commit adds an extra check in pp_goto after the unwinding of the
previous sub’s scope.
pp_ctl.c
t/op/goto.t