From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Fri, 2 May 1997 19:03:49 +0000 (+0000)
Subject: Don't require CvDEPTH == 0 when bombing out of subs.
X-Git-Tag: accepted/trunk/20130322.191538~38066^2
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=9ed32d99bcab50ff8df392e9741dd3de08a596a4;p=platform%2Fupstream%2Fperl.git

Don't require CvDEPTH == 0 when bombing out of subs.

p4raw-id: //depot/thrperl@9
---

diff --git a/pp_hot.c b/pp_hot.c
index 2aee061..5d70aa3 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -33,7 +33,7 @@ void *cvarg;
     DEBUG_L((fprintf(stderr, "0x%lx unsetting CvOWNER of 0x%lx:%s\n",
 		     (unsigned long)thr, (unsigned long)cv, SvPEEK((SV*)cv))));
     MUTEX_LOCK(CvMUTEXP(cv));
-    assert(CvDEPTH(cv) == 0);
+    /* assert(CvDEPTH(cv) == 0); */
     assert(thr == CvOWNER(cv));
     CvOWNER(cv) = 0;
     if (CvCONDP(cv))