From: Benjamin Sugars <bsugars@canoe.ca>
Date: Wed, 9 May 2001 18:14:34 +0000 (-0400)
Subject: Simplify deb_curcv() a bit
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f608e45298e0c3869f8348449766ce548e5d678d;p=p5sagit%2Fp5-mst-13.2.git

Simplify deb_curcv() a bit
Message-ID: <Pine.LNX.4.21.0105091811340.1160-100000@marmot.rim.canoe.ca>

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

diff --git a/run.c b/run.c
index 60d591e..04302db 100644
--- a/run.c
+++ b/run.c
@@ -114,8 +114,6 @@ S_deb_curcv(pTHX_ I32 ix)
     PERL_CONTEXT *cx = &cxstack[ix];
     if (CxTYPE(cx) == CXt_SUB || CxTYPE(cx) == CXt_FORMAT)
         return cx->blk_sub.cv;
-    else if (CxTYPE(cx) == CXt_EVAL && CxREALEVAL(cx))
-        return PL_compcv;
     else if (CxTYPE(cx) == CXt_EVAL && !CxTRYBLOCK(cx))
         return PL_compcv;
     else if (ix == 0 && PL_curstackinfo->si_type == PERLSI_MAIN)