From 5bdf89e7cb68a50d5bd016bfd0379b43445479df Mon Sep 17 00:00:00 2001 From: Ilya Zakharevich Date: Tue, 25 Aug 1998 10:56:06 -0400 Subject: [PATCH] Re: your Regexp.patch dated 21.8 [PATCH] Message-Id: <199808251856.OAA10825@monk.mps.ohio-state.edu> p4raw-id: //depot/perl@1874 --- toke.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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++; } -- 2.7.4