diff options
author | Karl Williamson <public@khwilliamson.com> | 2010-10-03 10:18:27 -0600 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2010-10-03 13:45:38 -0700 |
commit | b3155d952c8db59f6affd1762888f9c98cdc587c (patch) | |
tree | 4cbe77366cad7a17b2b5bd3aa8a24729f77d0441 /toke.c | |
parent | be064c4a1f59651142e99788731ae1d164c19537 (diff) | |
download | perl-b3155d952c8db59f6affd1762888f9c98cdc587c.tar.gz |
toke.c: call regcurly instead of duplicating code
Remove code that duplicates regcurly()
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 13 |
1 files changed, 2 insertions, 11 deletions
@@ -3513,19 +3513,10 @@ S_intuit_more(pTHX_ register char *s) /* In a pattern, so maybe we have {n,m}. */ if (*s == '{') { - s++; - if (!isDIGIT(*s)) - return TRUE; - while (isDIGIT(*s)) - s++; - if (*s == ',') - s++; - while (isDIGIT(*s)) - s++; - if (*s == '}') + if (regcurly(s)) { return FALSE; + } return TRUE; - } /* On the other hand, maybe we have a character class */ |