Don't multiply define Perl__invlist_dump.

It doesn't need to be in the extension if it's already in the core
top-level code.  Defining it more than once leads to linker errors
for linkers that care about such things, namely VMS.

Broken in ad3f05adb1975.

1 files changed, 2 insertions, 0 deletions

diff --git a/regcomp.c b/regcomp.c
index 5735ff0c1c..994cd2b7ec 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -8293,6 +8293,7 @@ Perl__invlist_contents(pTHX_ SV* const invlist)
 }
 #endif
 
+#ifndef PERL_IN_XSUB_RE
 void
 Perl__invlist_dump(pTHX_ PerlIO *file, I32 level, const char * const indent, SV* const invlist)
 {
@@ -8341,6 +8342,7 @@ Perl__invlist_dump(pTHX_ PerlIO *file, I32 level, const char * const indent, SV*
         count += 2;
     }
 }
+#endif
 
 #ifdef PERL_ARGS_ASSERT__INVLISTEQ
 bool