From: Stephen McCamant <smcc@mit.edu>
Date: Sun, 2 Aug 1998 21:44:34 +0000 (-0500)
Subject: fix segfault when threadsv is used as foreach itervar
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8dd3ba4056bdb9f9d2c311597eccd17234c5bda0;p=p5sagit%2Fp5-mst-13.2.git

fix segfault when threadsv is used as foreach itervar
	Message-Id: <13765.8641.997452.14516@alias-2.pr.mcs.net>
	Subject: [PATCH] threadsv index in enteriter targ in op_free()

p4raw-id: //depot/maint-5.005/perl@1721
---

diff --git a/op.c b/op.c
index 9c4501c..421a093 100644
--- a/op.c
+++ b/op.c
@@ -582,6 +582,10 @@ op_free(OP *o)
 	o->op_targ = 0;	/* Was holding hints. */
 	break;
 #ifdef USE_THREADS
+    case OP_ENTERITER:
+	if (!(o->op_flags & OPf_SPECIAL))
+	    break;
+	/* FALL THROUGH */
     case OP_THREADSV:
 	o->op_targ = 0;	/* Was holding index into thr->threadsv AV. */
 	break;