diff options
| author | Chip Salzenberg <chip@atlantic.net> | 1997-01-16 09:35:34 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-01-17 08:39:00 +1200 |
| commit | 85afd4ae870f9ff4e42276c9fef1ecf04ae2c95a (patch) | |
| tree | 96ed17926551e8a72138168c5530ff530309451d /regcomp.c | |
| parent | 0f51a74ef561b3bfdfdc523f1a2cb56641806dfd (diff) | |
| download | perl-85afd4ae870f9ff4e42276c9fef1ecf04ae2c95a.tar.gz | |
Fix overly picky carping about leading '{' in regex
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -764,10 +764,15 @@ tryagain: croak("internal urp in regexp at /%s/", regparse); /* Supposed to be caught earlier. */ break; + case '{': + if (!regcurly(regparse)) { + regparse++; + goto defchar; + } + /* FALL THROUGH */ case '?': case '+': case '*': - case '{': FAIL("?+*{} follows nothing in regexp"); break; case '\\': |