make C<use> recognize C<require> overrides; allow C<do EXPR> to be

[p5sagit/p5-mst-13.2.git] / toke.c

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++;
            }