From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Thu, 24 Jul 1997 14:55:07 +0000 (+0000)
Subject:  Add missing reset of eval_owner if doeval() fails to parse.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f2134d958aef4e3c1a25fdd268452df90105e99b;p=p5sagit%2Fp5-mst-13.2.git

 Add missing reset of eval_owner if doeval() fails to parse.

p4raw-id: //depot/perl@40
---

diff --git a/pp_ctl.c b/pp_ctl.c
index 24cb7a3..c6a6ea2 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2239,6 +2239,12 @@ int gimme;
 	}
 	SvREFCNT_dec(rs);
 	rs = SvREFCNT_inc(nrs);
+#ifdef USE_THREADS
+	MUTEX_LOCK(&eval_mutex);
+	eval_owner = 0;
+	COND_SIGNAL(&eval_cond);
+	MUTEX_UNLOCK(&eval_mutex);
+#endif /* USE_THREADS */
 	RETPUSHUNDEF;
     }
     SvREFCNT_dec(rs);