From 0eb30aebe20a48d634d4e484bc9e6005dffc1420 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Sat, 29 Dec 2012 20:51:00 -0700 Subject: Change core calls of isALNUM() to isWORDCHAR() The latter is more clearly named to indicate it includes the underscore. --- taint.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'taint.c') diff --git a/taint.c b/taint.c index 9a296db76b..4ebba5bc4a 100644 --- a/taint.c +++ b/taint.c @@ -158,9 +158,9 @@ Perl_taint_env(pTHX) const char *t = SvPV_const(*svp, len); const char * const e = t + len; TAINT_set(was_tainted); - if (t < e && isALNUM(*t)) + if (t < e && isWORDCHAR(*t)) t++; - while (t < e && (isALNUM(*t) || strchr("-_.+", *t))) + while (t < e && (isWORDCHAR(*t) || strchr("-_.+", *t))) t++; if (t < e) { TAINT; -- cgit v1.2.1