Adding the new test would be swell.

[p5sagit/p5-mst-13.2.git] / run.c

diff --git a/run.c b/run.c
index 702a9b9..04302db 100644 (file)
--- a/run.c
+++ b/run.c
@@ -108,14 +108,12 @@ Perl_debop(pTHX_ OP *o)
 }
 
 STATIC CV*
-S_deb_curcv(I32 ix)
+S_deb_curcv(pTHX_ I32 ix)
 {
 #ifdef DEBUGGING
     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)