Patch suggested by Craig Berry for RT 131337.

Perl · Jun 3, 2017 · 66c5e3f · 66c5e3f
1 parent bb5b17c
commit 66c5e3f
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/regexec.c b/regexec.c
@@ -9750,6 +9750,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)
 {
@@ -9805,6 +9807,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