From ad33f57d74879c2996a4b4d81b95694b3eb74e93 Mon Sep 17 00:00:00 2001 From: Dave Mitchell Date: Thu, 15 Jan 2004 23:49:02 +0000 Subject: [PATCH] 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 --- op.c | 1 + 1 file changed, 1 insertion(+) diff --git a/op.c b/op.c index e0d7f54..b39d81e 100644 --- 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, -- 2.7.4