This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
make Perl_scalar() mostly non-recursive
authorDavid Mitchell <davem@iabyn.com>
Tue, 28 May 2019 14:23:44 +0000 (15:23 +0100)
committerDavid Mitchell <davem@iabyn.com>
Mon, 24 Jun 2019 10:40:07 +0000 (11:40 +0100)
commit86e988be1f8cc30bfe52e03b6c22ad3140e1fb20
treefd00c63ba0e8bb8db004fa9c9558e77d4c77bba5
parent06c2b1fcb02816b3d9e6fc4273ddeecb05d7d2a5
make Perl_scalar() mostly non-recursive

Where it just recursively calls scalar() on all its children, instead
iteratively walk the sub-tree, using o->op_sibparent to work back
upwards.

Where it is more complex, such as OP_REPEAT imposing scalar context on its
first arg but not its second, recurse as before.
op.c
t/op/cond.t