summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2015-07-28 20:34:22 -0600
committerKarl Williamson <khw@cpan.org>2015-07-28 22:15:58 -0600
commit68c3923f2d6d71b86305fe9aaac75f9f08b5609b (patch)
tree9db7ec4cfe293d533d6ab9311febcb799b8c8edf /lib
parent193ca36cee2664032557408aff0c2fa1f25ea744 (diff)
downloadperl-68c3923f2d6d71b86305fe9aaac75f9f08b5609b.tar.gz
mktables: improve LineBreak table for early Unicodes
It turns out that the generated map files look better (even if functionally equivalent) if the default mapping is the one to the above-Unicode code points. This was the only one that had it different.
Diffstat (limited to 'lib')
-rw-r--r--lib/unicore/mktables7
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables
index 36f48cc63b..5f0643106f 100644
--- a/lib/unicore/mktables
+++ b/lib/unicore/mktables
@@ -3298,6 +3298,8 @@ package Multi_Default;
# .
# .
# 'U'));
+ # It is best to leave the final value be the one that matches the
+ # above-Unicode code points.
my $class = shift;
@@ -10003,8 +10005,9 @@ sub finish_property_setup {
$lb->set_default_map('Unknown');
}
else {
- my $default = Multi_Default->new( 'Unknown' => '$gc->table("Cn")',
- 'AL');
+ my $default = Multi_Default->new('AL' => '~ $gc->table("Cn")',
+ 'Unknown',
+ );
$lb->set_default_map($default);
}
}