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 (file)
--- 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++;
            }