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 (file)
--- 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);