summaryrefslogtreecommitdiff
path: root/dump.c
diff options
context:
space:
mode:
authorLukas Mai <l.mai@web.de>2017-06-24 14:56:50 +0200
committerLukas Mai <l.mai@web.de>2017-06-24 14:56:50 +0200
commit1fced1a2c6a67934990a50b61e729760a556308b (patch)
tree6d8908aa7d80b29cc97ad7d705e2c0cbf4066e75 /dump.c
parent87058c31e9fa350bda8d797127c9c175d0b1a893 (diff)
downloadperl-1fced1a2c6a67934990a50b61e729760a556308b.tar.gz
fix #ifdef directives with extra tokens
Diffstat (limited to 'dump.c')
-rw-r--r--dump.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/dump.c b/dump.c
index b95092956f..a817b43cce 100644
--- a/dump.c
+++ b/dump.c
@@ -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;