This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
handy.h: Add missing macro
authorKarl Williamson <khw@cpan.org>
Wed, 8 Oct 2014 17:21:16 +0000 (11:21 -0600)
committerKarl Williamson <khw@cpan.org>
Tue, 21 Oct 2014 15:26:49 +0000 (09:26 -0600)
This section of code is normally not compiled, but when circumstances
call for it to be compiled, it may be missing the macro defined in this
commit, which is trivial on ASCII platforms, so just define it if
missing

handy.h

diff --git a/handy.h b/handy.h
index 352e458..8cf4147 100644 (file)
--- a/handy.h
+++ b/handy.h
@@ -1137,7 +1137,12 @@ EXTCONST U32 PL_charclass[];
                           || ((c) <= 'F' && (c) >= 'A'))
 
     /* The _L1 macros may be unnecessary for the utilities; I (khw) added them
-     * during debugging, and it seems best to keep them. */
+     * during debugging, and it seems best to keep them.  We may be called
+     * without NATIVE_TO_LATIN1 being defined.  On ASCII platforms, it doesn't
+     * do anything anyway, so make it not a problem */
+#   if ! defined(EBCDIC) && ! defined(NATIVE_TO_LATIN1)
+#       define NATIVE_TO_LATIN1(ch) (ch)
+#   endif
 #   define isPSXSPC_A(c)     isSPACE_A(c) /* XXX Assumes SPACE matches '\v' */
 #   define isALPHA_L1(c)     (isUPPER_L1(c) || isLOWER_L1(c))
 #   define isALPHANUMERIC_L1(c) (isALPHA_L1(c) || isDIGIT_A(c))