From f8d2fa4a0e346d086c97ad65a72be24c1bc06bd7 Mon Sep 17 00:00:00 2001
From: James E Keenan <jkeenan@cpan.org>
Date: Sun, 21 May 2017 22:16:23 -0400
Subject: Patch suggested by Craig Berry for RT 131337.

(cherry picked from commit 66c5e3f2ab554a89dfc00689602414ac21ea66f6)
---
 regexec.c | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'regexec.c')

diff --git a/regexec.c b/regexec.c
index 4e82bc2ef5..134b196fc4 100644
--- a/regexec.c
+++ b/regexec.c
@@ -9755,6 +9755,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)
 {
@@ -9810,6 +9812,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
 
 
 
-- 
cgit v1.2.1