Only define Perl__get_regclass_nonbitmap_data once.

It was added in 77d654fbc7477bd but since it is exported, it
should not be defined in both the core and the extension versions
of regex code.  Doing so causes a multiply defined symbol warning
in the VMS linker and results in a build failure.  It might cause
trouble in any other environment with a strict linker.

diff --git a/regexec.c b/regexec.c
index d06ee20..c61d212 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -7491,7 +7491,6 @@ Perl_regclass_swash(pTHX_ const regexp *prog, const regnode* node, bool doinit,
 
     return newSVsv(_get_regclass_nonbitmap_data(prog, node, doinit, listsvp, NULL));
 }
-#endif
 
 SV *
 Perl__get_regclass_nonbitmap_data(pTHX_ const regexp *prog,
@@ -7605,6 +7604,7 @@ Perl__get_regclass_nonbitmap_data(pTHX_ const regexp *prog,
 
     return sw;
 }
+#endif /* !defined(PERL_IN_XSUB_RE) || defined(PLUGGABLE_RE_EXTENSION) */
 
 /*
  - reginclass - determine if a character falls into a character class