This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: White-space only
authorKarl Williamson <khw@cpan.org>
Thu, 25 Jan 2018 20:35:09 +0000 (13:35 -0700)
committerKarl Williamson <khw@cpan.org>
Tue, 30 Jan 2018 18:38:13 +0000 (11:38 -0700)
Indent code that the previous commit created a block around

regcomp.c

index b2d7b18..1efaaa5 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -20707,16 +20707,17 @@ S_put_charclass_bitmap_innards(pTHX_ SV *sv,
 
     /* Accumulate the bit map into the unconditional match list */
     if (bitmap) {
-    for (i = 0; i < NUM_ANYOF_CODE_POINTS; i++) {
-        if (BITMAP_TEST(bitmap, i)) {
-            int start = i++;
-            for (; i < NUM_ANYOF_CODE_POINTS && BITMAP_TEST(bitmap, i); i++) {
-                /* empty */
+        for (i = 0; i < NUM_ANYOF_CODE_POINTS; i++) {
+            if (BITMAP_TEST(bitmap, i)) {
+                int start = i++;
+                for (;
+                     i < NUM_ANYOF_CODE_POINTS && BITMAP_TEST(bitmap, i);
+                     i++)
+                { /* empty */ }
+                invlist = _add_range_to_invlist(invlist, start, i-1);
             }
-            invlist = _add_range_to_invlist(invlist, start, i-1);
         }
     }
-    }
 
     /* Make sure that the conditional match lists don't have anything in them
      * that match unconditionally; otherwise the output is quite confusing.