This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
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;