diff options
| author | Karl Williamson <public@khwilliamson.com> | 2010-09-23 14:30:54 -0600 |
|---|---|---|
| committer | Steffen Mueller <smueller@cpan.org> | 2010-09-25 11:15:31 +0200 |
| commit | fae4c845a0238803c7d37312ea9506a159272d52 (patch) | |
| tree | f5b72848e300ed7fc31ea95dfd279336b82531ce /handy.h | |
| parent | 12e948b5474fc0d1d67402496f5beb4bf79b6e43 (diff) | |
| download | perl-fae4c845a0238803c7d37312ea9506a159272d52.tar.gz | |
Add a comment; clarify another
Diffstat (limited to 'handy.h')
| -rw-r--r-- | handy.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -535,7 +535,7 @@ patched there. The file as of this writing is cpan/Devel-PPPort/parts/inc/misc || (NATIVE_TO_UNI(c) == 0x85 || NATIVE_TO_UNI(c) == 0xA0)) #define isWORDCHAR_L1(c) isALNUMU(c) #ifdef EBCDIC - /* In EBCDIC we do not do locales: therefore() isupper() is fine. */ + /* In EBCDIC we do not do locales: therefore can use native functions */ # define isALNUMC(c) isalnum(c) # define isBLANK(c) ((c) == ' ' || (c) == '\t' || NATIVE_TO_UNI(c) == 0xA0) # define isCNTRL(c) iscntrl(c) @@ -549,7 +549,7 @@ patched there. The file as of this writing is cpan/Devel-PPPort/parts/inc/misc # define isXDIGIT(c) isxdigit(c) # define toLOWER(c) tolower(c) # define toUPPER(c) toupper(c) -#else +#else /* Not EBCDIC */ # define isALNUMC(c) (isALPHA(c) || isDIGIT(c)) # define isBLANK(c) ((c) == ' ' || (c) == '\t') # define isCNTRL(c) ((U8) (c) < ' ' || (c) == 127) |