From af3f8c16b7d4e5efdb489a6f2ca99936245fc279 Mon Sep 17 00:00:00 2001
From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Mon, 9 Feb 1998 21:57:46 -0500
Subject: 5.004_5*: [PATCH] restore old behaviour of \1 in RE

p4raw-id: //depot/perl@505
---
 regexec.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'regexec.c')

diff --git a/regexec.c b/regexec.c
index 5fe5e4b9a9..b11bb9af86 100644
--- a/regexec.c
+++ b/regexec.c
@@ -979,7 +979,7 @@ regmatch(regnode *prog)
 	    n = ARG(scan);  /* which paren pair */
 	    s = regstartp[n];
 	    if (*reglastparen < n || !s)
-		break;			/* Zero length always matches */
+		sayNO;			/* Do not match unless seen CLOSEn. */
 	    if (s == regendp[n])
 		break;
 	    /* Inline the first character, for speed. */
-- 
cgit v1.2.1