summaryrefslogtreecommitdiff
path: root/utf8.h
diff options
context:
space:
mode:
Diffstat (limited to 'utf8.h')
-rw-r--r--utf8.h7
1 files changed, 4 insertions, 3 deletions
diff --git a/utf8.h b/utf8.h
index 5be352e590..bc9470d53f 100644
--- a/utf8.h
+++ b/utf8.h
@@ -293,9 +293,10 @@ Perl's extended UTF-8 means we can have start bytes up to FF.
#define isIDFIRST_lazy_if(p,UTF) ((IN_BYTES || !UTF ) \
? isIDFIRST(*(p)) \
: isIDFIRST_utf8((const U8*)p))
-#define isALNUM_lazy_if(p,UTF) ((IN_BYTES || (!UTF )) \
- ? isALNUM(*(p)) \
- : isALNUM_utf8((const U8*)p))
+#define isWORDCHAR_lazy_if(p,UTF) ((IN_BYTES || (!UTF )) \
+ ? isWORDCHAR(*(p)) \
+ : isWORDCHAR_utf8((const U8*)p))
+#define isALNUM_lazy_if(p,UTF) isWORDCHAR_lazy_if(p,UTF)
#define isIDFIRST_lazy(p) isIDFIRST_lazy_if(p,1)
#define isALNUM_lazy(p) isALNUM_lazy_if(p,1)