This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Rename isALNUM_L1 to isWORDCHAR_L1
authorKarl Williamson <public@khwilliamson.com>
Fri, 24 Sep 2010 06:24:18 +0000 (23:24 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 24 Sep 2010 06:24:18 +0000 (23:24 -0700)
handy.h

diff --git a/handy.h b/handy.h
index 449ec0f..c5c12b7 100644 (file)
--- a/handy.h
+++ b/handy.h
@@ -524,7 +524,7 @@ patched there.  The file as of this writing is cpan/Devel-PPPort/parts/inc/misc
        || NATIVE_TO_UNI((U8) c) == 0xB5 \
        || NATIVE_TO_UNI((U8) c) == 0xBA)))
 #define isALNUMU(c)    (isDIGIT(c) || isALPHAU(c) || (c) == '_')
-#define isALNUM_L1(c)  isALNUMU(c)
+#define isWORDCHAR_L1(c)       isALNUMU(c)
 
 /* continuation character for legal NAME in \N{NAME} */
 #define isCHARNAME_CONT(c) (isALNUMU(c) || (c) == ' ' || (c) == '-' || (c) == '(' || (c) == ')' || (c) == ':' || NATIVE_TO_UNI((U8) c) == 0xA0)