From 7ad1e72dffee44e18d61c291c3da6e33dfcc387d Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Thu, 9 Jan 2014 15:29:17 -0700 Subject: [PATCH] pp_hot.c: Rmv unnecessary test The strchr() cannot not succeed unless the first test fails, so the first test need not be tried at all. --- pp_hot.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/pp_hot.c b/pp_hot.c index 31b6530..beb9649 100644 --- a/pp_hot.c +++ b/pp_hot.c @@ -1689,8 +1689,7 @@ Perl_do_readline(pTHX) } } for (t1 = SvPVX_const(sv); *t1; t1++) - if (!isALPHANUMERIC(*t1) && - strchr("$&*(){}[]'\";\\|?<>~`", *t1)) + if (strchr("$&*(){}[]'\";\\|?<>~`", *t1)) break; if (*t1 && PerlLIO_lstat(SvPVX_const(sv), &PL_statbuf) < 0) { (void)POPs; /* Unmatched wildcard? Chuck it... */ -- 2.7.4