From: Karl Williamson Date: Fri, 10 Feb 2012 23:18:23 +0000 (-0700) Subject: UCD.t: white-space only X-Git-Tag: v5.15.8~124 X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/7f131b96f078425a8403b0da78cb529e2d812074?ds=inline UCD.t: white-space only This outdents some statements that are no longer enclosed in a block --- diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t index 99ffc9d..dd8a868 100644 --- a/lib/Unicode/UCD.t +++ b/lib/Unicode/UCD.t @@ -1688,21 +1688,21 @@ foreach my $prop (keys %props) { next; } - # The ad property has one entry which isn't in the file. - # Ignore it, but make sure it is in order. - if ($format eq 'ad' - && $invmap_ref->[$i] eq '' - && $invlist_ref->[$i] == 0xAC00) + # The ad property has one entry which isn't in the file. + # Ignore it, but make sure it is in order. + if ($format eq 'ad' + && $invmap_ref->[$i] eq '' + && $invlist_ref->[$i] == 0xAC00) + { + if (($i > 0 && $invlist_ref->[$i] <= $invlist_ref->[$i-1]) + || $invlist_ref->[$i] >= $invlist_ref->[$i+1]) { - 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; + fail("prop_invmap('$mod_prop')"); + diag(sprintf "Range beginning at %04X is out-of-order.", $invlist_ref->[$i]); + next PROPERTY; } + next; + } # Finally have figured out what the map column in the file should # be. Append the line to the running string.