This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl.h: Add comment, reorder conditional branches
authorKarl Williamson <khw@cpan.org>
Mon, 24 Feb 2020 20:52:20 +0000 (13:52 -0700)
committerKarl Williamson <khw@cpan.org>
Thu, 27 Feb 2020 18:06:28 +0000 (11:06 -0700)
This clarifies things a bit

perl.h

diff --git a/perl.h b/perl.h
index 8813a51..e527a3e 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -4231,10 +4231,11 @@ Gid_t getegid (void);
 
 #  define DEBUG_f(a) DEBUG__(DEBUG_f_TEST, a)
 
-#  ifndef PERL_EXT_RE_BUILD
-#    define DEBUG_r(a) DEBUG__(DEBUG_r_TEST, a)
-#  else
+/* For re_comp.c, re_exec.c, assume -Dr has been specified */
+#  ifdef PERL_EXT_RE_BUILD
 #    define DEBUG_r(a) STMT_START {a;} STMT_END
+#  else
+#    define DEBUG_r(a) DEBUG__(DEBUG_r_TEST, a)
 #  endif /* PERL_EXT_RE_BUILD */
 
 #  define DEBUG_x(a) DEBUG__(DEBUG_x_TEST, a)