This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Small efficiency nit for regcurly()
[perl5.git] / dquote_static.c
index c6d22e2..fbd8c38 100644 (file)
@@ -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;