diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-01-20 13:28:10 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-01-20 13:28:10 +0000 |
| commit | 0cbdab387091772196a9652896d774ed74da2f21 (patch) | |
| tree | 41e8917a1a5174a46027260a320cdff424681cda /scope.c | |
| parent | d11865445af8750ad2c09674e81b7941117e83b5 (diff) | |
| download | perl-0cbdab387091772196a9652896d774ed74da2f21.tar.gz | |
In struct block_loop access element label via the macro CxLABEL()
(for the places that aren't about to change)
p4raw-id: //depot/perl@33010
Diffstat (limited to 'scope.c')
| -rw-r--r-- | scope.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -1085,8 +1085,7 @@ Perl_cx_dump(pTHX_ PERL_CONTEXT *cx) break; case CXt_LOOP: - PerlIO_printf(Perl_debug_log, "BLK_LOOP.LABEL = %s\n", - cx->blk_loop.label); + PerlIO_printf(Perl_debug_log, "BLK_LOOP.LABEL = %s\n", CxLABEL(cx)); PerlIO_printf(Perl_debug_log, "BLK_LOOP.RESETSP = %ld\n", (long)cx->blk_loop.resetsp); PerlIO_printf(Perl_debug_log, "BLK_LOOP.MY_OP = 0x%"UVxf"\n", |