This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op.c: S_lvref(): handle all kids on OP_NULL
authorDavid Mitchell <davem@iabyn.com>
Tue, 4 Jun 2019 12:33:22 +0000 (13:33 +0100)
committerDavid Mitchell <davem@iabyn.com>
Mon, 24 Jun 2019 10:40:07 +0000 (11:40 +0100)
commit74ed399efffedf3c45f2d9edc9eb669aa6ac9ec5
tree244c3e6947703754ed01a620c60fe1bd66d273b4
parent4ef0eb8d1c25055f5231b8c51fcbecd3000356ae
op.c: S_lvref(): handle all kids on OP_NULL

For an OP_NULL, his function formerly recursed into *all* its kids
if was an ex-list, otherwise only the first one.

To simplify making this function non-recursive, make it so that it
unconditionally recurses into all the kids.

However for now, also add an assertion that a non ex-list OP_NULL
will only have one child at most. If we find some code which violates
this, then we can nmake a more informed decision as to whether
non ex-list OP_NULL's should have all, or only their first child
examined.
op.c