From: Dave Mitchell <davem@fdisolutions.com>
Date: Thu, 15 Jan 2004 23:49:02 +0000 (+0000)
Subject: buigid #24905 - the code planted to call glob() retained an
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ad33f57d74879c2996a4b4d81b95694b3eb74e93;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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,