This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 113ebcf) | patch
pp_break(): don't use TOPBLOCK
authorDavid Mitchell <davem@iabyn.com>
Mon, 21 Dec 2015 16:33:57 +0000 (16:33 +0000)
committerDavid Mitchell <davem@iabyn.com>
Wed, 3 Feb 2016 09:18:36 +0000 (09:18 +0000)
commit7e09e582198d13c19d8edacfdfee681daa3f07a2
treede694d069ec4040731062fca5d922653fe7a562dtree | snapshot
parent113ebcf5c66556023782d22f6bacda6584cada8bcommit | diff
pp_break(): don't use TOPBLOCK

It appears to be using TOPBLOCK purely for its effect of resetting
PL_stack_sp. Since the next op will be pp_leavegiven which will do a
POPBLOCK, the other actions of TOPBLOCK are redundant. So just set
PL_stack_sp directly.
pp_ctl.c diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.