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.

diff --git a/pp_hot.c b/pp_hot.c
index 31b6530..beb9649 100644 (file)
--- 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... */