summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorJames E Keenan <jkeenan@cpan.org>2017-05-21 22:16:23 -0400
committerSteve Hay <steve.m.hay@googlemail.com>2017-08-23 21:25:06 +0100
commitf8d2fa4a0e346d086c97ad65a72be24c1bc06bd7 (patch)
treebb7944fd4c45ceedb014ca71592bfd0c4cb15be3 /regexec.c
parentcdc7fabede829ac6bfdc731fb5449291c65a7292 (diff)
downloadperl-f8d2fa4a0e346d086c97ad65a72be24c1bc06bd7.tar.gz
Patch suggested by Craig Berry for RT 131337.
(cherry picked from commit 66c5e3f2ab554a89dfc00689602414ac21ea66f6)
Diffstat (limited to 'regexec.c')
-rw-r--r--regexec.c3
1 files changed, 3 insertions, 0 deletions
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