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: bb3300d) | patch
pp_given: avoid using savestack for old var
authorDavid Mitchell <davem@iabyn.com>
Fri, 2 Oct 2015 16:28:00 +0000 (17:28 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 3 Feb 2016 08:59:39 +0000 (08:59 +0000)
commitb95eccd3c957974356edd3c076146c996d76431d
tree8e843bea3c515fcb3faee44d317eaab1e9261a67tree | snapshot
parentbb3300d13ef3aaac93877cf6868160413dd618facommit | diff
pp_given: avoid using savestack for old var

Add a new field, defsv_save, to struct block_givwhen, and use this
to save the previous $_ in 'when(expr)' rather than saving it on the save
stack.

Also add POPWHEN and POPGIVEN macros. The former is a no-op for now.
cop.h diff | blob | blame | history
pp_ctl.c diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.