Don't define Perl_reg_numbered_buff_fetch_flags in extension

Doing so results in a multiply-defined symbol error at link time
with a strict linker.

1 files changed, 4 insertions, 0 deletions

diff --git a/regexec.c b/regexec.c
index bcab2ad7d5..c37193d004 100644
--- a/regexec.c
+++ b/regexec.c
@@ -12002,6 +12002,8 @@ Perl_reg_numbered_buff_fetch(pTHX_ REGEXP * const re, const I32 paren,
     Perl_reg_numbered_buff_fetch_flags(aTHX_ re, paren, sv, 0);
 }
 
+#ifndef PERL_IN_XSUB_RE
+
 void
 Perl_reg_numbered_buff_fetch_flags(pTHX_ REGEXP * const re, const I32 paren,
                                    SV * const sv, U32 flags)
@@ -12121,6 +12123,8 @@ Perl_reg_numbered_buff_fetch_flags(pTHX_ REGEXP * const re, const I32 paren,
     }
 }
 
+#endif
+
 void
 Perl_reg_numbered_buff_store(pTHX_ REGEXP * const rx, const I32 paren,
                                                          SV const * const value)