diff options
| author | Karl Williamson <public@khwilliamson.com> | 2014-01-09 15:29:17 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2014-01-22 11:45:05 -0700 |
| commit | 7ad1e72dffee44e18d61c291c3da6e33dfcc387d (patch) | |
| tree | 69332d69ed4be1241403fbb67d05f6574708a154 /pp_hot.c | |
| parent | c9d1bf8e2b28429d0317b74fdaafba4b42aca99b (diff) | |
| download | perl-7ad1e72dffee44e18d61c291c3da6e33dfcc387d.tar.gz | |
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.
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -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... */ |