This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
handy.h: Add comment
authorKarl Williamson <public@khwilliamson.com>
Sat, 5 May 2012 14:04:15 +0000 (08:04 -0600)
committerKarl Williamson <public@khwilliamson.com>
Sun, 17 Jun 2012 17:35:05 +0000 (11:35 -0600)
handy.h

diff --git a/handy.h b/handy.h
index 3782788..b48353e 100644 (file)
--- a/handy.h
+++ b/handy.h
@@ -778,7 +778,7 @@ EXTCONST U32 PL_charclass[];
 #   define toLOWER(c)  tolower(c)
 #   define toUPPER(c)  toupper(c)
 #else /* Not EBCDIC: ASCII-only matching */
-#   define isALNUMC(c)  isALNUMC_A(c)
+#   define isALNUMC(c)  isALNUMC_A(c)  /* Mnemonic: "C's alnum" = alpha + digit */
 #   define isALPHA(c)   isALPHA_A(c)
 #   define isBLANK(c)   isBLANK_A(c)
 #   define isCNTRL(c)   isCNTRL_A(c)