This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Use full sym name in isIDFIRST_utf8 to fix [perl #100930]
authorFather Chrysostomos <sprout@cpan.org>
Sat, 8 Oct 2011 01:03:20 +0000 (18:03 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 8 Oct 2011 01:03:56 +0000 (18:03 -0700)
_is_utf8__perl_idstart is not an API function, so the short
_is_utf8__perl_idstart form cannot be used in public macros.
The long form (Perl__is_utf8__perl_idstart) must be used.

handy.h

diff --git a/handy.h b/handy.h
index db760ab..2c2311a 100644 (file)
--- a/handy.h
+++ b/handy.h
@@ -941,7 +941,7 @@ EXTCONST U32 PL_charclass[];
                                 : (UTF8_IS_DOWNGRADEABLE_START(*(p)))           \
                                   ? isIDFIRST_L1(TWO_BYTE_UTF8_TO_UNI(*(p),     \
                                                                       *((p)+1)))\
-                                  : _is_utf8__perl_idstart(p))
+                                  : Perl__is_utf8__perl_idstart(aTHX_ p))
 #define isIDCONT_utf8(p)       generic_utf8(isWORDCHAR, is_utf8_xidcont, p)
 #define isALPHA_utf8(p)                generic_utf8(isALPHA, is_utf8_alpha, p)
 #define isSPACE_utf8(p)                generic_utf8(isSPACE, is_utf8_space, p)