This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Don't define Perl_isFOO_lc in the regex extension.
authorCraig A. Berry <craigberry@mac.com>
Thu, 29 Dec 2016 20:03:43 +0000 (14:03 -0600)
committerCraig A. Berry <craigberry@mac.com>
Thu, 29 Dec 2016 20:03:43 +0000 (14:03 -0600)
Otherwise it ends up multiply defined, which annoys the VMS linker
(and probably the AIX linker too).

regexec.c

index 23b2d3f..0b5c847 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -445,6 +445,8 @@ S_regcp_restore(pTHX_ regexp *rex, I32 ix, U32 *maxopenparen_p _pDEPTH)
 
 #define regcpblow(cp) LEAVE_SCOPE(cp)  /* Ignores regcppush()ed data. */
 
+#ifndef PERL_IN_XSUB_RE
+
 bool
 Perl_isFOO_lc(pTHX_ const U8 classnum, const U8 character)
 {
@@ -486,6 +488,8 @@ Perl_isFOO_lc(pTHX_ const U8 classnum, const U8 character)
     return FALSE;
 }
 
+#endif
+
 STATIC bool
 S_isFOO_utf8_lc(pTHX_ const U8 classnum, const U8* character)
 {