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: c3d969b) | patch
pp_leavesub: simplify recursion test
authorDavid Mitchell <davem@iabyn.com>
Sat, 11 Jul 2015 10:49:13 +0000 (11:49 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 3 Feb 2016 08:59:35 +0000 (08:59 +0000)
commitae6dfccfee4fe5b430854c7a16176c0011c5f97a
tree8c04c9a75ca425ab94db0514be960f3ca57cc48atree | snapshot
parentc3d969bf8c6373a9f0535609542576f0a0ba221acommit | diff
pp_leavesub: simplify recursion test

Part of pp_leavesub() tests whether we're in recursion by looking
at CvDEPTH(cx->blk_sub.cv). Instead, just directly check
cx->blk_sub.olddepth, which is equivalent (allowing for an offset of 1)
but faster.
pp_hot.c diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.