don't longjmp() in pp_goto() (regressive bug from old single-stack

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

diff --git a/toke.c b/toke.c
index 844b982..88933de 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++;
            }
@@ -1530,8 +1532,6 @@ filter_gets(register SV *sv, register PerlIO *fp, STRLEN append)
        { "OPERATOR", "TERM", "REF", "STATE", "BLOCK", "TERMBLOCK" };
 #endif
 
-EXT int yychar;                /* last token */
-
 /*
   yylex