White-space only; properly indent newly formed blocks

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

diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl
index 78586ec..d8f1de3 100644 (file)
--- a/lib/utf8_heavy.pl
+++ b/lib/utf8_heavy.pl
@@ -521,16 +521,16 @@ sub _loose_name ($) {
                     # may already have been read-in and cached.  The cache key
                     # is the class and file to load, and whether the results
                     # need to be inverted.
-                my $found = $Cache{$class, $file, $invert_it};
-                if ($found and ref($found) eq $class) {
-                    print STDERR __LINE__, ": Returning cached swash for '$class,$file,$invert_it' for \\p{$type}\n" if DEBUG;
-                    pop @recursed if @recursed;
-                    return $found;
-                }
+                    my $found = $Cache{$class, $file, $invert_it};
+                    if ($found and ref($found) eq $class) {
+                        print STDERR __LINE__, ": Returning cached swash for '$class,$file,$invert_it' for \\p{$type}\n" if DEBUG;
+                        pop @recursed if @recursed;
+                        return $found;
+                    }
 
-                local $@;
-                local $!;
-                $list = do $file; die $@ if $@;
+                    local $@;
+                    local $!;
+                    $list = do $file; die $@ if $@;
                 }
 
                 $list_is_from_mktables = 1;

diff --git a/utf8.c b/utf8.c
index 7a30a63..fa5b4a7 100644 (file)
--- 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 {