From aecf5a4bae81aedf2fc8ce4337ca5a6d7d141ef6 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Mon, 22 Apr 2013 14:34:47 -0600 Subject: [PATCH] toke.c: Remove redundant test This checks that something is both not-printable and not a word character, but all word characters are printable, so just the non-printable test suffices. --- toke.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/toke.c b/toke.c index f49e2d6..ff6308f 100644 --- a/toke.c +++ b/toke.c @@ -9370,7 +9370,7 @@ S_scan_ident(pTHX_ char *s, const char *send, char *dest, STRLEN destlen, I32 ck } /* Handle extended ${^Foo} variables * 1999-02-27 mjd-perl-patch@plover.com */ - else if (!isWORDCHAR(*d) && !isPRINT(*d) /* isCTRL(d) */ + else if (! isPRINT(*d) /* isCNTRL(d), plus all non-ASCII */ && isWORDCHAR(*s)) { d++; -- 2.7.4