summaryrefslogtreecommitdiff
path: root/util.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2017-07-22 15:09:28 -0600
committerKarl Williamson <khw@cpan.org>2017-09-09 23:05:11 -0600
commita248e8c9a34d31406328ded9f53f37b610ec1290 (patch)
treea96b14672ad03b3af4024384f297cbccd13b8af5 /util.c
parent6069d6c5d1109837259a2e1dcf38c27c6b71c8df (diff)
downloadperl-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.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/util.c b/util.c
index 4584c735bc..0fdea7d6c3 100644
--- a/util.c
+++ b/util.c
@@ -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;
}