remove idential code branch from regmatch()

p4raw-id: //depot/perl@27569

1 files changed, 1 insertions, 23 deletions

diff --git a/regexec.c b/regexec.c
index fcdf30ff88..219087896d 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) {