diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-10-07 18:03:20 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-07 18:03:56 -0700 |
commit | 4244b0292358460164f4c7053e251706d22071b1 (patch) | |
tree | 05e808d20d6b0471519338c0d3c231fef58fde2c | |
parent | cfadff5f5601f31887ca14e07caa1137b1dd63dc (diff) | |
download | perl-4244b0292358460164f4c7053e251706d22071b1.tar.gz |
Use full sym name in isIDFIRST_utf8 to fix [perl #100930]
_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.
-rw-r--r-- | handy.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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) |