In perl.git, the branch smoke-me/ilmari/leonerd-parse-subsignature has been updated
<https://perl5.git.perl.org/perl.git/commitdiff/802f2eedb632f864ef3014fb94c4cbfd8b0e7096?hp=47a0300d1f6eaa76fa676920eeb460e7a9e5bcbd> discards 47a0300d1f6eaa76fa676920eeb460e7a9e5bcbd (commit) - Log ----------------------------------------------------------------- commit 802f2eedb632f864ef3014fb94c4cbfd8b0e7096 Author: Paul "LeoNerd" Evans <leon...@leonerd.org.uk> Date: Wed Jul 17 18:05:00 2019 +0100 Initial hack at an XS::APItest for parse_subsignature() ----------------------------------------------------------------------- Summary of changes: ext/XS-APItest/APItest.xs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs index 08afcce8b2..132372c752 100644 --- a/ext/XS-APItest/APItest.xs +++ b/ext/XS-APItest/APItest.xs @@ -1068,7 +1068,7 @@ static OP *THX_parse_keyword_subsignature(pTHX) if(sigop->op_type != OP_LINESEQ) croak("Expected parse_subsignature() to yield an OP_LINESEQ"); - for(kid = cLISTOPx(sigop)->op_first; kid; kid = OpSIBLING(kid)) + for(kid = cLISTOPx(sigop)->op_first; kid; kid = OpSIBLING(kid)) { switch(kid->op_type) { case OP_NEXTSTATE: /* Only emit the first one otherwise they get boring */ @@ -1098,7 +1098,9 @@ static OP *THX_parse_keyword_subsignature(pTHX) fprintf(stderr, "TODO: examine kid %p (optype=%s)\n", kid, PL_op_name[kid->op_type]); break; } + } + op_free(sigop); return newANONLIST(retop); } -- Perl5 Master Repository