Add Unicode's minor 6.0 correction

[perl5.git] / dquote_static.c

diff --git a/dquote_static.c b/dquote_static.c
index c6d22e2..fbd8c38 100644 (file)
--- 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;