From: Ilya Zakharevich <ilya@math.ohio-state.edu>
Date: Sun, 20 Apr 1997 06:44:32 +0000 (-0400)
Subject: Problems with glob
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a1230b335277820e65b8a9454ab751341204cf4f;p=p5sagit%2Fp5-mst-13.2.git

Problems with glob

This patch seems to make it on _93 (I recall that on _93 overwritten
`glob' just does not make it for <blah>):

p5p-msgid: 1997Apr20.024432.1941365@hmivax.humgen.upenn.edu
---

diff --git a/op.c b/op.c
index 6a1fa5b..34a3bbe 100644
--- a/op.c
+++ b/op.c
@@ -4088,8 +4088,13 @@ OP *op;
     GV *gv = gv_fetchpv("glob", FALSE, SVt_PVCV);
 
     if (gv && GvIMPORTED_CV(gv)) {
+	static int cnt;
+
+	append_elem(OP_GLOB, op, newSVOP(OP_CONST, 0, newSViv(cnt++)));
 	op->op_type = OP_LIST;
 	op->op_ppaddr = ppaddr[OP_LIST];
+	((LISTOP*)op)->op_first->op_type = OP_PUSHMARK;
+	((LISTOP*)op)->op_first->op_ppaddr = ppaddr[OP_PUSHMARK];
 	op = newUNOP(OP_ENTERSUB, OPf_STACKED,
 		     append_elem(OP_LIST, op, 
 				 scalar(newUNOP(OP_RV2CV, 0,