diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-01-31 10:25:46 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-02-04 16:29:32 -0700 |
| commit | 4066e594fe94825b10f07a4bb94dfb8072e3405f (patch) | |
| tree | dfae860efe8bf0a94557e890bbeaf67e609b2053 /lib | |
| parent | 34132297113975a3522f23d745e0ccf336803994 (diff) | |
| download | perl-4066e594fe94825b10f07a4bb94dfb8072e3405f.tar.gz | |
UCD.t: White space only
Indent properly to account for these being in a newly formed block
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Unicode/UCD.t | 50 |
1 files changed, 25 insertions, 25 deletions
diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t index 530c548694..89d2c596fe 100644 --- a/lib/Unicode/UCD.t +++ b/lib/Unicode/UCD.t @@ -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 |