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: 67ba154) | patch
Perl_op_linklist(): use OPf_KIDS flags
authorDavid Mitchell <davem@iabyn.com>
Wed, 29 May 2019 14:03:42 +0000 (15:03 +0100)
committerDavid Mitchell <davem@iabyn.com>
Mon, 24 Jun 2019 10:40:07 +0000 (11:40 +0100)
commit5e21b4fc704f9e7028aca7bf5faf3f7d05b05726
tree64f91a35d605ee6fdd7aec84ec5a946d20d378a6tree | snapshot
parent67ba1548076ba1059a495f5009a93fa143eddd77commit | diff
Perl_op_linklist(): use OPf_KIDS flags

This function just blindly assumes that cUNOPo->op_first is a valid
indication that the op has at least one child. This is successful *most*
of the time. Putting in an assertion caused t/op/lvref.t to fail.

Instead, check the OPf_KIDS flag.
op.c diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.