This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp_leavewhen(): skip POPWHEN()
authorDavid Mitchell <davem@iabyn.com>
Mon, 5 Oct 2015 15:59:05 +0000 (16:59 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 3 Feb 2016 08:59:40 +0000 (08:59 +0000)
commit8aef2117c820d82091fcbab49e8ae3bc5312b954
tree910fa33ba8117f74cce9ae6cc5f810548564fdb5
parent590529d80b3917f351c7a3d2593fc43c6a15d04c
pp_leavewhen(): skip POPWHEN()

pp_leavewhen at some point will do an unconditional dounwind()
to pop the WHEN, BLOCK, and any other intermediate contexts, till it
returns to the enclosing FOR or GIVEN context. Thus there is no need to do
an initial POPBLOCK()/POPWHEN(), as this will be done by dounwind.
We just need to grab a couple of values from the top (GIVEN) context
to go arg stack processing correctly.
pp_ctl.c