This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add missing back compat macros
authorKarl Williamson <khw@cpan.org>
Sun, 24 Nov 2019 19:11:09 +0000 (12:11 -0700)
committerKarl Williamson <khw@cpan.org>
Sun, 24 Nov 2019 19:18:37 +0000 (12:18 -0700)
These are needed only to allow some modules to stay updated with blead.

handy.h
utf8.h

diff --git a/handy.h b/handy.h
index f2cbaaa..0f1e940 100644 (file)
--- a/handy.h
+++ b/handy.h
@@ -2229,7 +2229,9 @@ END_EXTERN_C
 #define isALNUM_uni(c)      isWORDCHAR_uni(c)
 #define isALNUM_LC_uvchr(c) isWORDCHAR_LC_uvchr(c)
 #define isALNUM_utf8(p,e)   isWORDCHAR_utf8(p,e)
 #define isALNUM_uni(c)      isWORDCHAR_uni(c)
 #define isALNUM_LC_uvchr(c) isWORDCHAR_LC_uvchr(c)
 #define isALNUM_utf8(p,e)   isWORDCHAR_utf8(p,e)
+#define isALNUM_utf8_safe(p,e) isWORDCHAR_utf8_safe(p,e)
 #define isALNUM_LC_utf8(p,e)isWORDCHAR_LC_utf8(p,e)
 #define isALNUM_LC_utf8(p,e)isWORDCHAR_LC_utf8(p,e)
+#define isALNUM_LC_utf8_safe(p,e)isWORDCHAR_LC_utf8_safe(p,e)
 #define isALNUMC_A(c)       isALPHANUMERIC_A(c)      /* Mnemonic: "C's alnum" */
 #define isALNUMC_L1(c)      isALPHANUMERIC_L1(c)
 #define isALNUMC(c)        isALPHANUMERIC(c)
 #define isALNUMC_A(c)       isALPHANUMERIC_A(c)      /* Mnemonic: "C's alnum" */
 #define isALNUMC_L1(c)      isALPHANUMERIC_L1(c)
 #define isALNUMC(c)        isALPHANUMERIC(c)
@@ -2237,7 +2239,8 @@ END_EXTERN_C
 #define isALNUMC_uni(c)     isALPHANUMERIC_uni(c)
 #define isALNUMC_LC_uvchr(c) isALPHANUMERIC_LC_uvchr(c)
 #define isALNUMC_utf8(p,e)  isALPHANUMERIC_utf8(p,e)
 #define isALNUMC_uni(c)     isALPHANUMERIC_uni(c)
 #define isALNUMC_LC_uvchr(c) isALPHANUMERIC_LC_uvchr(c)
 #define isALNUMC_utf8(p,e)  isALPHANUMERIC_utf8(p,e)
-#define isALNUMC_LC_utf8(p,e) isALPHANUMERIC_LC_utf8(p,e)
+#define isALNUMC_utf8_safe(p,e)  isALPHANUMERIC_utf8_safe(p,e)
+#define isALNUMC_LC_utf8_safe(p,e) isALPHANUMERIC_LC_utf8_safe(p,e)
 
 /* On EBCDIC platforms, CTRL-@ is 0, CTRL-A is 1, etc, just like on ASCII,
  * except that they don't necessarily mean the same characters, e.g. CTRL-D is
 
 /* On EBCDIC platforms, CTRL-@ is 0, CTRL-A is 1, etc, just like on ASCII,
  * except that they don't necessarily mean the same characters, e.g. CTRL-D is
diff --git a/utf8.h b/utf8.h
index e449d72..f60202b 100644 (file)
--- a/utf8.h
+++ b/utf8.h
@@ -703,6 +703,7 @@ with a ptr argument.
                    ((IN_BYTES || !UTF)                                      \
                      ? isWORDCHAR(*(p))                                     \
                      : isWORDCHAR_utf8_safe((U8 *) p, (U8 *) e))
                    ((IN_BYTES || !UTF)                                      \
                      ? isWORDCHAR(*(p))                                     \
                      : isWORDCHAR_utf8_safe((U8 *) p, (U8 *) e))
+#define isALNUM_lazy_if_safe(p, e, UTF) isWORDCHAR_lazy_if_safe(p, e, UTF)
 
 #define isALNUM_lazy_if(p,UTF)                                              \
             _is_utf8_FOO(_CC_IDFIRST, (const U8 *) p, "isALNUM_lazy_if",    \
 
 #define isALNUM_lazy_if(p,UTF)                                              \
             _is_utf8_FOO(_CC_IDFIRST, (const U8 *) p, "isALNUM_lazy_if",    \