diff options
author | Karl Williamson <khw@cpan.org> | 2017-07-22 15:09:28 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2017-09-09 23:05:11 -0600 |
commit | a248e8c9a34d31406328ded9f53f37b610ec1290 (patch) | |
tree | a96b14672ad03b3af4024384f297cbccd13b8af5 /util.c | |
parent | 6069d6c5d1109837259a2e1dcf38c27c6b71c8df (diff) | |
download | perl-a248e8c9a34d31406328ded9f53f37b610ec1290.tar.gz |
util.c: atos_symbolize: Don't use locale-dependent fcns
It very likely isn't an issue here, but the core should not have
unintentional locale-dependent code .
Diffstat (limited to 'util.c')
-rw-r--r-- | util.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -6096,17 +6096,17 @@ static const char* atos_parse(const char* p, UV uv; /* Skip trailing whitespace. */ - while (p > start && isspace(*p)) p--; + while (p > start && isSPACE(*p)) p--; /* Now we should be at the close paren. */ if (p == start || *p != ')') return NULL; close_paren = p; p--; /* Now we should be in the line number. */ - if (p == start || !isdigit(*p)) + if (p == start || !isDIGIT(*p)) return NULL; /* Skip over the digits. */ - while (p > start && isdigit(*p)) + while (p > start && isDIGIT(*p)) p--; /* Now we should be at the colon. */ if (p == start || *p != ':') @@ -6151,7 +6151,7 @@ static void atos_symbolize(atos_context* ctx, * the object name (used as "-o '%s'" ), leave since at least * partially the user controls it. */ for (p = ctx->fname; *p; p++) { - if (*p == '\'' || iscntrl(*p)) { + if (*p == '\'' || isCNTRL(*p)) { ctx->unavail = TRUE; return; } |