fix #ifdef directives with extra tokens
authorLukas Mai <l.mai@web.de>
Sat, 24 Jun 2017 12:56:50 +0000 (14:56 +0200)
committerLukas Mai <l.mai@web.de>
Sat, 24 Jun 2017 12:56:50 +0000 (14:56 +0200)
cop.h
dump.c

diff --git a/cop.h b/cop.h
index 42257c7..ce688ab 100644 (file)
--- a/cop.h
+++ b/cop.h
@@ -994,7 +994,7 @@ struct stackinfo {
     I32                        si_markoff;     /* offset where markstack begins for us.
                                         * currently used only with DEBUGGING,
                                         * but not #ifdef-ed for bincompat */
-#ifdef DEBUGGING && !defined DEBUGGING_RE_ONLY
+#if defined DEBUGGING && !defined DEBUGGING_RE_ONLY
 /* high water mark: for checking if the stack was correctly extended /
  * tested for extension by each pp function */
     SSize_t             si_stack_hwm;
diff --git a/dump.c b/dump.c
index b950929..a817b43 100644 (file)
--- 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;