diff options
| author | Karl Williamson <public@khwilliamson.com> | 2010-10-03 10:19:23 -0600 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-10-03 13:45:39 -0700 |
| commit | 2ec31dd9f923af3a899842b086bdc04c45569b29 (patch) | |
| tree | b4c7469158f885cb1d110f6beba1e8b5e6349798 /dquote_static.c | |
| parent | b3155d952c8db59f6affd1762888f9c98cdc587c (diff) | |
| download | perl-2ec31dd9f923af3a899842b086bdc04c45569b29.tar.gz | |
Small efficiency nit for regcurly()
As previously written, a test was executed unnecessarily
Diffstat (limited to 'dquote_static.c')
| -rw-r--r-- | dquote_static.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/dquote_static.c b/dquote_static.c index c6d22e2dd0..fbd8c3824d 100644 --- a/dquote_static.c +++ b/dquote_static.c @@ -32,10 +32,11 @@ regcurly(register const char *s) return FALSE; while (isDIGIT(*s)) s++; - if (*s == ',') - s++; - while (isDIGIT(*s)) + if (*s == ',') { s++; + while (isDIGIT(*s)) + s++; + } if (*s != '}') return FALSE; return TRUE; |