From: H.Merijn Brand <h.m.brand@xs4all.nl>
Date: Thu, 6 Oct 2011 08:10:31 +0000 (+0200)
Subject: _A is predefined in some precompiler environments
X-Git-Tag: v5.15.4~136
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/387dbbd39a594f4d003a92c160e51eb500a20265

_A is predefined in some precompiler environments

On HP-UX 10.20 in the HP C-ANSI-C environment

  CAT2(macro, _A)

expands to

  macro01

as _A obviously expands to 01. This fix "breaks" the token
---

diff --git a/handy.h b/handy.h
index 7a87d78..fc37b2f 100644
--- a/handy.h
+++ b/handy.h
@@ -919,7 +919,7 @@ EXTCONST U32 PL_charclass[];
  * the function.  This relies on the fact that ASCII characters have the same
  * representation whether utf8 or not */
 #define generic_utf8(macro, function, p) (isASCII(*(p))                        \
-                                         ? CAT2(macro, _A)(*(p))               \
+                                         ? CAT2(CAT2(macro,_)A)(*(p))               \
                                          : (UTF8_IS_DOWNGRADEABLE_START(*(p))) \
                                            ? CAT2(macro, _L1)                  \
                                              (TWO_BYTE_UTF8_TO_UNI(*(p),       \