projects / platform / upstream / perl.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 6cf9034) | patch
[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
tree0a9e1f0534ea3ae4e0781aab69f8bc9498567d7dtree | snapshot
parent6cf90346c90a7451f8f74cf11ba01d8571efb824commit | diff
[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 diff | blob | history
t/op/goto.t diff | blob | history
Domain: System / Base;