From: Yves Orton <demerphq@gmail.com>
Date: Sun, 4 Oct 2009 15:00:10 +0000 (+0200)
Subject: refactor some common logic in regexec.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=28e464fba839d02f376952199261fc8b7d58a0d8;p=p5sagit%2Fp5-mst-13.2.git

refactor some common logic in regexec.c
---

diff --git a/regexec.c b/regexec.c
index 221e360..83d216b 100644
--- a/regexec.c
+++ b/regexec.c
@@ -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;