This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Patch suggested by Craig Berry for RT 131337.
authorJames E Keenan <jkeenan@cpan.org>
Mon, 22 May 2017 02:16:23 +0000 (22:16 -0400)
committerJames E Keenan <jkeenan@cpan.org>
Sat, 3 Jun 2017 22:22:46 +0000 (18:22 -0400)
regexec.c

index 35b88d7..e63f15d 100644 (file)
--- 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