Patch suggested by Craig Berry for RT 131337.

Perl · May 22, 2017 · 52ad33e · 52ad33e
1 parent 7c825fc
commit 52ad33e
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/regexec.c b/regexec.c
@@ -9749,6 +9749,8 @@ S_to_byte_substr(pTHX_ regexp *prog)
     return TRUE;
 }
 
+#ifndef PERL_IN_XSUB_RE
+
 bool
 Perl__is_grapheme(pTHX_ const U8 * strbeg, const U8 * s, const U8 * strend, const UV cp)
 {
@@ -9804,6 +9806,7 @@ Perl__is_grapheme(pTHX_ const U8 * strbeg, const U8 * s, const U8 * strend, cons
     return isGCB(cp_gcb_val, next_cp_gcb_val, strbeg, s, TRUE);
 }
 
+#endif