diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-01-21 17:21:40 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-01-21 17:21:40 +0000 |
| commit | c5bed6a7fce592c2ad5feb351b09e8f9ce8c18c5 (patch) | |
| tree | c46406289583a47a274f9be300d5da5add99af95 /scope.c | |
| parent | 99710fe38e53c8e763d4758979c48cc5bc8503cf (diff) | |
| download | perl-c5bed6a7fce592c2ad5feb351b09e8f9ce8c18c5.tar.gz | |
In struct block_subst, access the member once via a macro CxONCE()
which will allow the storage location to be changed.
p4raw-id: //depot/perl@33034
Diffstat (limited to 'scope.c')
| -rw-r--r-- | scope.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1112,7 +1112,7 @@ Perl_cx_dump(pTHX_ PERL_CONTEXT *cx) PerlIO_printf(Perl_debug_log, "SB_RFLAGS = %ld\n", (long)cx->sb_rflags); PerlIO_printf(Perl_debug_log, "SB_ONCE = %ld\n", - (long)cx->sb_once); + (long)CxONCE(cx)); PerlIO_printf(Perl_debug_log, "SB_ORIG = %s\n", cx->sb_orig); PerlIO_printf(Perl_debug_log, "SB_DSTR = 0x%"UVxf"\n", |