diff options
| author | Karl Williamson <public@khwilliamson.com> | 2010-09-23 20:42:40 -0600 |
|---|---|---|
| committer | Steffen Mueller <smueller@cpan.org> | 2010-09-25 11:15:31 +0200 |
| commit | 271b5cb31d498243788ba704c149a346f82b8e04 (patch) | |
| tree | f97ca75769c88470e2465801f4f956cc52f293ff | |
| parent | ec79cfbb4089eaff74c7a4fe618d50db57702d5d (diff) | |
| download | perl-271b5cb31d498243788ba704c149a346f82b8e04.tar.gz | |
handy.h: EBCDIC should use native isalpha()
| -rw-r--r-- | handy.h | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -566,7 +566,6 @@ patched there. The file as of this writing is cpan/Devel-PPPort/parts/inc/misc * differently between the two */ #define isALNUM(c) isWORDCHAR(c) #define isALNUMU(c) isWORDCHAR_L1(c) -#define isALPHA(c) (isUPPER(c) || isLOWER(c)) /* continuation character for legal NAME in \N{NAME} */ #define isCHARNAME_CONT(c) (isWORDCHAR_L1(c) || (c) == ' ' || (c) == '-' || (c) == '(' || (c) == ')' || (c) == ':' || NATIVE_TO_UNI((U8) c) == 0xA0) #define isIDFIRST(c) (isALPHA(c) || (c) == '_') @@ -577,6 +576,7 @@ patched there. The file as of this writing is cpan/Devel-PPPort/parts/inc/misc #ifdef EBCDIC /* In EBCDIC we do not do locales: therefore can use native functions */ # define isALNUMC(c) isalnum(c) +# define isALPHA(c) isalpha(c) # define isBLANK(c) ((c) == ' ' || (c) == '\t' || NATIVE_TO_UNI(c) == 0xA0) # define isCNTRL(c) iscntrl(c) # define isDIGIT(c) isdigit(c) @@ -592,6 +592,7 @@ patched there. The file as of this writing is cpan/Devel-PPPort/parts/inc/misc # define toUPPER(c) toupper(c) #else /* Not EBCDIC: ASCII-only matching */ # define isALNUMC(c) isALNUMC_A(c) +# define isALPHA(c) isALPHA_A(c) # define isBLANK(c) isBLANK_A(c) # define isCNTRL(c) isCNTRL_A(c) # define isDIGIT(c) isDIGIT_A(c) |