This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
UCD.t: White space only
authorKarl Williamson <public@khwilliamson.com>
Tue, 31 Jan 2012 17:25:46 +0000 (10:25 -0700)
committerKarl Williamson <public@khwilliamson.com>
Sat, 4 Feb 2012 23:29:32 +0000 (16:29 -0700)
Indent properly to account for these being in a newly formed block

lib/Unicode/UCD.t

index 530c548..89d2c59 100644 (file)
@@ -1641,32 +1641,32 @@ foreach my $prop (keys %props) {
                 }
                 if ($format eq 'cle' && $invmap_ref->[$i] eq "") {
 
-                # cle properties have maps to the empty string that also
-                # should be in the specials hash, with the key the packed code
-                # point, and the map just empty.
-                my $value;
-                if (! defined ($value = delete $specials{pack("C0U", $invlist_ref->[$i]) })) {
-                    fail("prop_invmap('$mod_prop')");
-                    diag(sprintf "There was no specials element for %04X", $invlist_ref->[$i]);
-                    next PROPERTY;
-                }
-                if ($value ne "") {
-                    fail("prop_invmap('$mod_prop')");
-                    diag(sprintf "For %04X, expected the mapping to be \"\", but got '$value'", $invlist_ref->[$i]);
-                    next PROPERTY;
-                }
+                    # cle properties have maps to the empty string that also
+                    # should be in the specials hash, with the key the packed
+                    # code point, and the map just empty.
+                    my $value;
+                    if (! defined ($value = delete $specials{pack("C0U", $invlist_ref->[$i]) })) {
+                        fail("prop_invmap('$mod_prop')");
+                        diag(sprintf "There was no specials element for %04X", $invlist_ref->[$i]);
+                        next PROPERTY;
+                    }
+                    if ($value ne "") {
+                        fail("prop_invmap('$mod_prop')");
+                        diag(sprintf "For %04X, expected the mapping to be \"\", but got '$value'", $invlist_ref->[$i]);
+                        next PROPERTY;
+                    }
 
-                # As this doesn't get tested when we later compare with
-                # the actual file, it could be out of order and we
-                # wouldn't know it.
-                if (($i > 0 && $invlist_ref->[$i] <= $invlist_ref->[$i-1])
-                    || $invlist_ref->[$i] >= $invlist_ref->[$i+1])
-                {
-                    fail("prop_invmap('$mod_prop')");
-                    diag(sprintf "Range beginning at %04X is out-of-order.", $invlist_ref->[$i]);
-                    next PROPERTY;
-                }
-                next;
+                    # As this doesn't get tested when we later compare with
+                    # the actual file, it could be out of order and we
+                    # wouldn't know it.
+                    if (($i > 0 && $invlist_ref->[$i] <= $invlist_ref->[$i-1])
+                        || $invlist_ref->[$i] >= $invlist_ref->[$i+1])
+                    {
+                        fail("prop_invmap('$mod_prop')");
+                        diag(sprintf "Range beginning at %04X is out-of-order.", $invlist_ref->[$i]);
+                        next PROPERTY;
+                    }
+                    next;
                 }
             }
             elsif ($is_binary) { # These binary files don't have an explicit Y