diff options
author | Lukas Mai <l.mai@web.de> | 2017-06-24 14:56:50 +0200 |
---|---|---|
committer | Lukas Mai <l.mai@web.de> | 2017-06-24 14:56:50 +0200 |
commit | 1fced1a2c6a67934990a50b61e729760a556308b (patch) | |
tree | 6d8908aa7d80b29cc97ad7d705e2c0cbf4066e75 /dump.c | |
parent | 87058c31e9fa350bda8d797127c9c175d0b1a893 (diff) | |
download | perl-1fced1a2c6a67934990a50b61e729760a556308b.tar.gz |
fix #ifdef directives with extra tokens
Diffstat (limited to 'dump.c')
-rw-r--r-- | dump.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -2413,7 +2413,7 @@ Perl_sv_dump(pTHX_ SV *sv) int Perl_runops_debug(pTHX) { -#ifdef DEBUGGING && !defined DEBUGGING_RE_ONLY +#if defined DEBUGGING && !defined DEBUGGING_RE_ONLY SSize_t orig_stack_hwm = PL_curstackinfo->si_stack_hwm; PL_curstackinfo->si_stack_hwm = PL_stack_sp - PL_stack_base; @@ -2428,7 +2428,7 @@ Perl_runops_debug(pTHX) #ifdef PERL_TRACE_OPS ++PL_op_exec_cnt[PL_op->op_type]; #endif -#ifdef DEBUGGING && !defined DEBUGGING_RE_ONLY +#if defined DEBUGGING && !defined DEBUGGING_RE_ONLY if (PL_curstackinfo->si_stack_hwm < PL_stack_sp - PL_stack_base) Perl_croak_nocontext( "panic: previous op failed to extend arg stack: " @@ -2466,7 +2466,7 @@ Perl_runops_debug(pTHX) DEBUG_l(Perl_deb(aTHX_ "leaving RUNOPS level\n")); PERL_ASYNC_CHECK(); -#ifdef DEBUGGING && !defined DEBUGGING_RE_ONLY +#if defined DEBUGGING && !defined DEBUGGING_RE_ONLY PL_curstackinfo->si_stack_hwm = orig_stack_hwm; #endif TAINT_NOT; |