From b6912c02aa553169d6b7158ab7a2ddc26d60974f Mon Sep 17 00:00:00 2001
From: Karl Williamson <public@khwilliamson.com>
Date: Wed, 28 Sep 2011 09:44:52 -0600
Subject: utf8.c: Add function to retrieve new _Perl_IDStart prop

---
 utf8.c | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'utf8.c')

diff --git a/utf8.c b/utf8.c
index 62fdf18a36..1773f2e34c 100644
--- a/utf8.c
+++ b/utf8.c
@@ -1509,6 +1509,16 @@ Perl_is_utf8_xidfirst(pTHX_ const U8 *p) /* The naming is historical. */
     return is_utf8_common(p, &PL_utf8_xidstart, "XIdStart");
 }
 
+bool
+Perl__is_utf8__perl_idstart(pTHX_ const U8 *p)
+{
+    dVAR;
+
+    PERL_ARGS_ASSERT__IS_UTF8__PERL_IDSTART;
+
+    return is_utf8_common(p, &PL_utf8_perl_idstart, "_Perl_IDStart");
+}
+
 bool
 Perl_is_utf8_idcont(pTHX_ const U8 *p)
 {
-- 
cgit v1.2.1