diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-02-10 16:18:23 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-02-10 16:20:13 -0700 |
| commit | 7f131b96f078425a8403b0da78cb529e2d812074 (patch) | |
| tree | ac29e87785941225cbaf440fbe1bedbc22732aca /lib/Unicode | |
| parent | 26cef665834773e922f84471e9654faeda58c1aa (diff) | |
| download | perl-7f131b96f078425a8403b0da78cb529e2d812074.tar.gz | |
UCD.t: white-space only
This outdents some statements that are no longer enclosed in a block
Diffstat (limited to 'lib/Unicode')
| -rw-r--r-- | lib/Unicode/UCD.t | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t index 99ffc9dbc4..dd8a86818f 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 '<hangul syllable>' - && $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 '<hangul syllable>' + && $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. |