diff options
author | Tony Cook <tony@develop-help.com> | 2016-03-14 12:56:32 +1100 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2016-03-14 12:56:49 +1100 |
commit | eb8fc9fea6fb514b7cdb298a1585178a7fdd0a5e (patch) | |
tree | 0d8757451bce55ee9c0e546b2fb2a2dab94e0b47 | |
parent | 02fb1e6bdc5acf51abb45aa746937e2845604eed (diff) | |
download | perl-eb8fc9fea6fb514b7cdb298a1585178a7fdd0a5e.tar.gz |
only call Perl_re_printf() under -DDEBUGGING
This caused link failures on Win32 with MSVC.
-rw-r--r-- | regexec.c | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -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 */ |