diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-08-25 10:56:06 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-09-24 08:44:55 +0000 |
| commit | 5bdf89e7cb68a50d5bd016bfd0379b43445479df (patch) | |
| tree | b2058d575f78dd60d1c971954ffacb7e464a8be6 /toke.c | |
| parent | d1b8022985c09823f9032ec74d6ce16d9391f57d (diff) | |
| download | perl-5bdf89e7cb68a50d5bd016bfd0379b43445479df.tar.gz | |
Re: your Regexp.patch dated 21.8 [PATCH]
Message-Id: <199808251856.OAA10825@monk.mps.ohio-state.edu>
p4raw-id: //depot/perl@1874
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -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++; } |