White-space only; properly indent newly formed blocks

The previous commit added braces forming blocks.  This indents the
contents of those blocks.

1 files changed, 13 insertions, 13 deletions

diff --git a/utf8.c b/utf8.c
index 7a30a63c71..fa5b4a7323 100644
--- a/utf8.c
+++ b/utf8.c
@@ -3723,22 +3723,22 @@ Perl__swash_to_invlist(pTHX_ SV* const swash)
             invlist = _new_invlist(0);
         }
         else {
-        l = (U8 *) after_strtol;
+            l = (U8 *) after_strtol;
 
-        /* Get the 0th element, which is needed to setup the inversion list */
-        element0 = (UV) Strtoul((char *)l, &after_strtol, 10);
-        l = (U8 *) after_strtol;
-        invlist = _setup_canned_invlist(elements, element0, &other_elements_ptr);
-        elements--;
+            /* Get the 0th element, which is needed to setup the inversion list */
+            element0 = (UV) Strtoul((char *)l, &after_strtol, 10);
+            l = (U8 *) after_strtol;
+            invlist = _setup_canned_invlist(elements, element0, &other_elements_ptr);
+            elements--;
 
-        /* Then just populate the rest of the input */
-        while (elements-- > 0) {
-            if (l > lend) {
-                Perl_croak(aTHX_ "panic: Expecting %"UVuf" more elements than available", elements);
+            /* Then just populate the rest of the input */
+            while (elements-- > 0) {
+                if (l > lend) {
+                    Perl_croak(aTHX_ "panic: Expecting %"UVuf" more elements than available", elements);
+                }
+                *other_elements_ptr++ = (UV) Strtoul((char *)l, &after_strtol, 10);
+                l = (U8 *) after_strtol;
             }
-            *other_elements_ptr++ = (UV) Strtoul((char *)l, &after_strtol, 10);
-            l = (U8 *) after_strtol;
-        }
         }
     }
     else {