diff options
| author | Yves Orton <demerphq@gmail.com> | 2009-10-04 17:00:10 +0200 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2009-10-04 18:41:40 +0200 |
| commit | 28e464fba839d02f376952199261fc8b7d58a0d8 (patch) | |
| tree | a8e28f78bb8d3183bcca12688a61f7b312ad2c08 /regexec.c | |
| parent | ec81ed5df789e3e2888d6260f8b3139f7be436b9 (diff) | |
| download | perl-28e464fba839d02f376952199261fc8b7d58a0d8.tar.gz | |
refactor some common logic in regexec.c
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 14 |
1 files changed, 4 insertions, 10 deletions
@@ -3483,17 +3483,11 @@ S_regmatch(pTHX_ regmatch_info *reginfo, regnode *prog) nextchr = UCHARAT(locinput); break; } - if (!(OP(scan) == SPACE - ? isSPACE(nextchr) : isSPACE_LC(nextchr))) - sayNO; - nextchr = UCHARAT(++locinput); - } - else { - if (!(OP(scan) == SPACE - ? isSPACE(nextchr) : isSPACE_LC(nextchr))) - sayNO; - nextchr = UCHARAT(++locinput); } + if (!(OP(scan) == SPACE + ? isSPACE(nextchr) : isSPACE_LC(nextchr))) + sayNO; + nextchr = UCHARAT(++locinput); break; case NSPACEL: PL_reg_flags |= RF_tainted; |