diff options
| author | Benjamin Sugars <bsugars@canoe.ca> | 2001-05-08 05:14:30 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-08 12:41:53 +0000 |
| commit | 0c51317d476c824bfe91c585c7379177af754b05 (patch) | |
| tree | 62e88528459b18eee7edd2c25840a52cd5328d3b /run.c | |
| parent | 9217eab15fbcb76895253b121569a6360c8e171a (diff) | |
| download | perl-0c51317d476c824bfe91c585c7379177af754b05.tar.gz | |
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
Diffstat (limited to 'run.c')
| -rw-r--r-- | run.c | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -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) |