buigid #24905 - the code planted to call glob() retained an

extraneous targ index in a pushmark op, leasing to strangeness
when the op was freed

p4raw-id: //depot/perl@22160

diff --git a/op.c b/op.c
index e0d7f54..b39d81e 100644 (file)
--- a/op.c
+++ b/op.c
@@ -5332,6 +5332,7 @@ Perl_ck_glob(pTHX_ OP *o)
        o->op_ppaddr = PL_ppaddr[OP_LIST];
        cLISTOPo->op_first->op_type = OP_PUSHMARK;
        cLISTOPo->op_first->op_ppaddr = PL_ppaddr[OP_PUSHMARK];
+       cLISTOPo->op_first->op_targ = 0;
        o = newUNOP(OP_ENTERSUB, OPf_STACKED,
                    append_elem(OP_LIST, o,
                                scalar(newUNOP(OP_RV2CV, 0,