From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Tue, 25 Aug 1998 14:56:06 +0000 (-0400)
Subject: Re: your Regexp.patch dated 21.8 [PATCH]
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5bdf89e7cb68a50d5bd016bfd0379b43445479df;p=p5sagit%2Fp5-mst-13.2.git

Re: your Regexp.patch dated 21.8 [PATCH]

	Message-Id: <199808251856.OAA10825@monk.mps.ohio-state.edu>

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

diff --git a/toke.c b/toke.c
index 844b982..2518e54 100644
--- a/toke.c
+++ b/toke.c
@@ -976,8 +976,10 @@ scan_const(char *start)
 			count--;
 		    regparse++;
 		}
-		if (*regparse != ')')
+		if (*regparse != ')') {
+		    regparse--;		/* Leave one char for continuation. */
 		    yyerror("Sequence (?{...}) not terminated or not {}-balanced");
+		}
 		while (s < regparse)
 		    *d++ = *s++;
 	    }