From: Dave Mitchell <davem@fdisolutions.com>
Date: Wed, 22 Mar 2006 16:05:16 +0000 (+0000)
Subject: remove idential code branch from regmatch()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1d5c262fbd21396e56bf7edfdcdcd17169e921c3;p=p5sagit%2Fp5-mst-13.2.git

remove idential code branch from regmatch()

p4raw-id: //depot/perl@27569
---

diff --git a/regexec.c b/regexec.c
index fcdf30f..2190878 100644
--- a/regexec.c
+++ b/regexec.c
@@ -4067,29 +4067,7 @@ S_regmatch(pTHX_ regnode *prog)
 			ln--;
 		}
 		REGCP_SET(lastcp);
-		if (paren) {
-		    UV c = 0;
-		    while (n >= ln) {
-			if (c1 != -1000) {
-			    if (do_utf8)
-				c = utf8n_to_uvchr((U8*)PL_reginput,
-						   UTF8_MAXBYTES, 0,
-						   uniflags);
-			    else
-				c = UCHARAT(PL_reginput);
-			}
-			/* If it could work, try it. */
-			if (c1 == -1000 || c == (UV)c1 || c == (UV)c2)
-			    {
-				TRYPAREN(paren, n, PL_reginput);
-				REGCP_UNWIND(lastcp);
-			    }
-			/* Couldn't or didn't -- back up. */
-			n--;
-			PL_reginput = locinput = HOPc(locinput, -1);
-		    }
-		}
-		else {
+		{
 		    UV c = 0;
 		    while (n >= ln) {
 			if (c1 != -1000) {