diff options
| author | Benjamin Sugars <bsugars@canoe.ca> | 2001-05-09 14:14:34 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-09 23:06:25 +0000 |
| commit | f608e45298e0c3869f8348449766ce548e5d678d (patch) | |
| tree | f5623db5eb0424cd823ffc74fc9eb97a27c8dbe5 /run.c | |
| parent | 23a2eb0a7bc4c2d6efcbdf056cb24868d7a4b91d (diff) | |
| download | perl-f608e45298e0c3869f8348449766ce548e5d678d.tar.gz | |
Simplify deb_curcv() a bit
Message-ID: <Pine.LNX.4.21.0105091811340.1160-100000@marmot.rim.canoe.ca>
p4raw-id: //depot/perl@10062
Diffstat (limited to 'run.c')
| -rw-r--r-- | run.c | 2 |
1 files changed, 0 insertions, 2 deletions
@@ -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) |