diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-05-05 08:04:39 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-06-17 11:35:05 -0600 |
| commit | d5294b8de19a9f7f003d708072317ee11088af98 (patch) | |
| tree | 1d4ff3a67bc6c6201abc7d670d88d678c1af4d69 | |
| parent | e58b1dde740744eab849838de39ef497ec0d7e8b (diff) | |
| download | perl-d5294b8de19a9f7f003d708072317ee11088af98.tar.gz | |
a2py.c: Use isWORDCHAR() instead of individ components
isWORDCHAR() is a single macro (and array lookup) that is the equivalent
of the OR of the three macros previously used.
| -rw-r--r-- | x2p/a2py.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/x2p/a2py.c b/x2p/a2py.c index 286f7cc106..f6944b9005 100644 --- a/x2p/a2py.c +++ b/x2p/a2py.c @@ -399,7 +399,7 @@ yylex(void) #define SNARFWORD \ d = tokenbuf; \ - while (isALPHA(*s) || isDIGIT(*s) || *s == '_') \ + while (isWORDCHAR(*s)) \ *d++ = *s++; \ *d = '\0'; \ d = tokenbuf; \ @@ -426,7 +426,7 @@ yylex(void) maxfld = tmp; XOP(FIELD); } - for (d = s; isALPHA(*s) || isDIGIT(*s) || *s == '_'; ) + for (d = s; isWORDCHAR(*s); ) s++; split_to_array = TRUE; if (d != s) |