utf8.c: Change is_uni_idfirst_lc() to use Perl's defn

The Perl definition is slightly more restrictive of what Unicode's
idfirst is.  We should use our definition consistently.

diff --git a/utf8.c b/utf8.c
index 11af768..e3eba9c 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -1844,7 +1844,7 @@ Perl_is_uni_alnumc_lc(pTHX_ UV c)
 bool
 Perl_is_uni_idfirst_lc(pTHX_ UV c)
 {
-    return is_uni_idfirst(c);  /* XXX no locale support yet */
+    return _is_uni_perl_idstart(c);    /* XXX no locale support yet */
 }
 
 bool