summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2011-10-07 18:03:20 -0700
committerFather Chrysostomos <sprout@cpan.org>2011-10-07 18:03:56 -0700
commit4244b0292358460164f4c7053e251706d22071b1 (patch)
tree05e808d20d6b0471519338c0d3c231fef58fde2c
parentcfadff5f5601f31887ca14e07caa1137b1dd63dc (diff)
downloadperl-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.h2
1 files changed, 1 insertions, 1 deletions
diff --git a/handy.h b/handy.h
index db760ab339..2c2311ac5f 100644
--- 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)