diff options
| author | David Mitchell <davem@iabyn.com> | 2017-06-23 12:25:30 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2017-06-23 14:16:48 +0100 |
| commit | 0599cd66b4e9bae6409714e39aa0eebc67712ca7 (patch) | |
| tree | 4a703968974d81270da5e262cd362a8ae5f30aa3 /ext/re | |
| parent | 54ad4e11aa2a4191637d6f4ef1b878490e4fb6db (diff) | |
| download | perl-0599cd66b4e9bae6409714e39aa0eebc67712ca7.tar.gz | |
add DEBUGGING_RE_ONLY define
re.xs and re_top.h both turn DEBUGGING on. make them set
DEBUGGING_RE_ONLY too so that its easy to tell this is a fake DEBUGGING.
Diffstat (limited to 'ext/re')
| -rw-r--r-- | ext/re/re.pm | 2 | ||||
| -rw-r--r-- | ext/re/re.xs | 1 | ||||
| -rw-r--r-- | ext/re/re_top.h | 1 |
3 files changed, 3 insertions, 1 deletions
diff --git a/ext/re/re.pm b/ext/re/re.pm index c416b94c28..81c632b6df 100644 --- a/ext/re/re.pm +++ b/ext/re/re.pm @@ -4,7 +4,7 @@ package re; use strict; use warnings; -our $VERSION = "0.34"; +our $VERSION = "0.35"; our @ISA = qw(Exporter); our @EXPORT_OK = ('regmust', qw(is_regexp regexp_pattern diff --git a/ext/re/re.xs b/ext/re/re.xs index 9545d1dba0..c2064ffb91 100644 --- a/ext/re/re.xs +++ b/ext/re/re.xs @@ -1,5 +1,6 @@ #if defined(PERL_EXT_RE_DEBUG) && !defined(DEBUGGING) # define DEBUGGING +# define DEBUGGING_RE_ONLY #endif #define PERL_NO_GET_CONTEXT diff --git a/ext/re/re_top.h b/ext/re/re_top.h index ce4c716aa5..543f924908 100644 --- a/ext/re/re_top.h +++ b/ext/re/re_top.h @@ -5,6 +5,7 @@ /* need access to debugger hooks */ #if defined(PERL_EXT_RE_DEBUG) && !defined(DEBUGGING) # define DEBUGGING +# define DEBUGGING_RE_ONLY #endif /* We *really* need to overwrite these symbols: */ |