summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2010-10-03 10:18:27 -0600
committerFather Chrysostomos <sprout@cpan.org>2010-10-03 13:45:38 -0700
commitb3155d952c8db59f6affd1762888f9c98cdc587c (patch)
tree4cbe77366cad7a17b2b5bd3aa8a24729f77d0441 /toke.c
parentbe064c4a1f59651142e99788731ae1d164c19537 (diff)
downloadperl-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.c13
1 files changed, 2 insertions, 11 deletions
diff --git a/toke.c b/toke.c
index dd49c3cdba..d81b968443 100644
--- a/toke.c
+++ b/toke.c
@@ -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 */