This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Porting/sync-with-cpan: apply --jobs=N when running module tests
[perl5.git] / 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)
 {