diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-11-14 19:30:42 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-12-31 08:27:19 -0700 |
| commit | 288837b92d17bacae078dc0122755b34ca019ac6 (patch) | |
| tree | 72bd46ce2a5e644cc7f6670b7149ee71f381d269 /lib | |
| parent | dd870bcfb767e5c6fbc69792e7b8984b56962cef (diff) | |
| download | perl-288837b92d17bacae078dc0122755b34ca019ac6.tar.gz | |
mktables: White-space only
Outdent a just-removed block, and better align several other statements
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/unicore/mktables | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index bad179943b..3a18a570d6 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -5714,10 +5714,10 @@ END if (($use_adjustments || $range_size_1) && $end != $start) { - $next_start = $start + 1; - $next_end = $end; - $next_value = $value; - $end = $start; + $next_start = $start + 1; + $next_end = $end; + $next_value = $value; + $end = $start; } if ($use_adjustments && ! $range_size_1) { @@ -5816,7 +5816,7 @@ END # Get character information if don't have it already main::populate_char_info($i) - if ! defined $viacode[$i]; + if ! defined $viacode[$i]; my $type = $annotate_char_type[$i]; # Figure out if should output the next code points @@ -5925,13 +5925,13 @@ END else { $output_value += $i - $start if $use_adjustments - # Don't try to adjust a - # non-integer + # Don't try to adjust a + # non-integer && $output_value !~ /[-\D]/; if ($output_map_in_hex) { main::populate_char_info($output_value) - if ! defined $viacode[$output_value]; + if ! defined $viacode[$output_value]; $comment .= " => '" . main::display_chr($output_value) . "'; " if $printable[$output_value]; @@ -7865,14 +7865,16 @@ END if ($total_entries == 0) { Carp::my_carp("No regular expression construct can match $leader, as all names for it are the null string. Creating file anyway."); $comment .= <<END; -This file returns the $code_points in Unicode Version $string_version for +This file returns the $code_points in Unicode Version +$string_version for $leader, but it is inaccessible through Perl regular expressions, as "\\p{prop=}" is not recognized. END } else { $comment .= <<END; -This file returns the $code_points in Unicode Version $string_version that +This file returns the $code_points in Unicode Version +$string_version that $match$synonyms: $matches_comment |