summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTony Cook <tony@develop-help.com>2016-03-14 12:56:32 +1100
committerTony Cook <tony@develop-help.com>2016-03-14 12:56:49 +1100
commiteb8fc9fea6fb514b7cdb298a1585178a7fdd0a5e (patch)
tree0d8757451bce55ee9c0e546b2fb2a2dab94e0b47
parent02fb1e6bdc5acf51abb45aa746937e2845604eed (diff)
downloadperl-eb8fc9fea6fb514b7cdb298a1585178a7fdd0a5e.tar.gz
only call Perl_re_printf() under -DDEBUGGING
This caused link failures on Win32 with MSVC.
-rw-r--r--regexec.c6
1 files changed, 2 insertions, 4 deletions
diff --git a/regexec.c b/regexec.c
index 764e336410..4df1dc6de9 100644
--- a/regexec.c
+++ b/regexec.c
@@ -2726,11 +2726,9 @@ S_reg_set_capture_string(pTHX_ REGEXP * const rx,
if (flags & REXEC_COPY_STR) {
#ifdef PERL_ANY_COW
if (SvCANCOW(sv)) {
- if (DEBUG_C_TEST) {
- Perl_re_printf( aTHX_
+ DEBUG_C(Perl_re_printf( aTHX_
"Copy on write: regexp capture, type %d\n",
- (int) SvTYPE(sv));
- }
+ (int) SvTYPE(sv)));
/* Create a new COW SV to share the match string and store
* in saved_copy, unless the current COW SV in saved_copy
* is valid and suitable for our purpose */