From 7dbf68d2396b16bcbba2780133a8c8aa3b172884 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Thu, 20 Dec 2012 09:29:36 -0700 Subject: Create internal _is_utf8_mark() This is so we can deprecate non-core use of the existing one in a future commit. XS coders should be using the macros in handy.h instead of calling such functions directly. A future commit will deprecate all of them, but first the core uses of this one must change so they don't generate deprecation messages. I will not have a chance to look for some time, but I suspect that most uses of this function in the core should be changed to use something else, but in the meantime, the non-core uses can be deprecated. --- utf8.c | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) (limited to 'utf8.c') diff --git a/utf8.c b/utf8.c index b6ca4876d8..930b148419 100644 --- a/utf8.c +++ b/utf8.c @@ -2287,6 +2287,17 @@ Perl_is_utf8_xdigit(pTHX_ const U8 *p) return is_XDIGIT_utf8(p); } +bool +Perl__is_utf8_mark(pTHX_ const U8 *p) +{ + dVAR; + + PERL_ARGS_ASSERT__IS_UTF8_MARK; + + return is_utf8_common(p, &PL_utf8_mark, "IsM"); +} + + bool Perl_is_utf8_mark(pTHX_ const U8 *p) { @@ -2294,7 +2305,7 @@ Perl_is_utf8_mark(pTHX_ const U8 *p) PERL_ARGS_ASSERT_IS_UTF8_MARK; - return is_utf8_common(p, &PL_utf8_mark, "IsM"); + return _is_utf8_mark(p); } /* -- cgit v1.2.1