diff options
author | Karl Williamson <khw@cpan.org> | 2015-07-28 20:34:22 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2015-07-28 22:15:58 -0600 |
commit | 68c3923f2d6d71b86305fe9aaac75f9f08b5609b (patch) | |
tree | 9db7ec4cfe293d533d6ab9311febcb799b8c8edf /lib | |
parent | 193ca36cee2664032557408aff0c2fa1f25ea744 (diff) | |
download | perl-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/mktables | 7 |
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); } } |