From: Benjamin Sugars <bsugars@canoe.ca>
Date: Tue, 8 May 2001 09:14:30 +0000 (-0400)
Subject: Re: [PATCH] Find the last of the missing pad variables
X-Git-Tag: accepted/trunk/20130322.191538~32014
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=0c51317d476c824bfe91c585c7379177af754b05;p=platform%2Fupstream%2Fperl.git

Re: [PATCH] Find the last of the missing pad variables
Message-ID: <Pine.LNX.4.21.0105080912370.1930-100000@marmot.rim.canoe.ca>

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

diff --git a/run.c b/run.c
index 054abfe..702a9b9 100644
--- a/run.c
+++ b/run.c
@@ -114,9 +114,10 @@ S_deb_curcv(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 && PL_compcv)
-        /* XXX Should be PL_compcv? */
-        return Nullcv;
+    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)
         return PL_main_cv;
     else if (ix <= 0)