From 1d5c262fbd21396e56bf7edfdcdcd17169e921c3 Mon Sep 17 00:00:00 2001
From: Dave Mitchell <davem@fdisolutions.com>
Date: Wed, 22 Mar 2006 16:05:16 +0000
Subject: [PATCH] remove idential code branch from regmatch()

p4raw-id: //depot/perl@27569
---
 regexec.c | 24 +-----------------------
 1 file changed, 1 insertion(+), 23 deletions(-)

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) {
-- 
2.7.4