summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode
diff options
context:
space:
mode:
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode')
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate.pm30
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/Big5.pm2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/GB2312.pm2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/JISX0208.pm2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/Korean.pm2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/Pinyin.pm2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/Stroke.pm2
-rwxr-xr-xsystems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/Zhuyin.pm2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale.pm2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/af.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ar.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/as.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/az.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/be.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/bn.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ca.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/cs.pl2
-rwxr-xr-xsystems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/cu.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/cy.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/da.pl2
-rwxr-xr-xsystems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/de_at_ph.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/de_phone.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/dsb.pl2
-rwxr-xr-xsystems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ee.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/eo.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/es.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/es_trad.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/et.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/fa.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/fi.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/fi_phone.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/fil.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/fo.pl2
-rwxr-xr-xsystems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/fr_ca.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/gu.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ha.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/haw.pl2
-rwxr-xr-xsystems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/he.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/hi.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/hr.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/hu.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/hy.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ig.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/is.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ja.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/kk.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/kl.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/kn.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ko.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/kok.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/lkt.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ln.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/lt.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/lv.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/mk.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ml.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/mr.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/mt.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/nb.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/nn.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/nso.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/om.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/or.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/pa.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/pl.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ro.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sa.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/se.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/si.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/si_dict.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sk.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sl.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sq.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sr.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sv.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sv_refo.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ta.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/te.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/th.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/tn.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/to.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/tr.pl2
-rwxr-xr-xsystems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ug_cyrl.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/uk.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ur.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/vi.pl2
-rwxr-xr-xsystems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/vo.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/wae.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/wo.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/yo.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/zh.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/zh_big5.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/zh_gb.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/zh_pin.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/zh_strk.pl2
-rwxr-xr-xsystems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/zh_zhu.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Normalize.pm69
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/UCD.pm44
98 files changed, 185 insertions, 148 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate.pm
index e57cdf8d6e..7b8e547073 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate.pm
@@ -1,14 +1,5 @@
package Unicode::Collate;
-BEGIN {
- unless ("A" eq pack('U', 0x41)) {
- die "Unicode::Collate cannot stringify a Unicode code point\n";
- }
- unless (0x41 == unpack('U', 'A')) {
- die "Unicode::Collate cannot get a Unicode code point\n";
- }
-}
-
use 5.006;
use strict;
use warnings;
@@ -17,7 +8,7 @@ use File::Spec;
no warnings 'utf8';
-our $VERSION = '1.29';
+our $VERSION = '1.31';
our $PACKAGE = __PACKAGE__;
### begin XS only ###
@@ -94,13 +85,24 @@ sub Base_Unicode_Version { '13.0.0' }
######
+my $native_to_unicode = ($::IS_ASCII || $] < 5.008)
+ ? sub { return shift }
+ : sub { utf8::native_to_unicode(shift) };
+
+my $unicode_to_native = ($::IS_ASCII || $] < 5.008)
+ ? sub { return shift }
+ : sub { utf8::unicode_to_native(shift) };
+
+# pack_U() should get Unicode code points.
sub pack_U {
- return pack('U*', @_);
+ return pack('U*', map $unicode_to_native->($_), @_);
}
+# unpack_U() should return Unicode code points.
sub unpack_U {
- return unpack('U*', shift(@_).pack('U*'));
+ return map $native_to_unicode->($_), unpack('U*', shift(@_).pack('U*'));
}
+# for older perl version, pack('U*') generates empty string with utf8 flag.
######
@@ -2101,12 +2103,14 @@ C<variable =E<gt> "non-ignorable", level =E<gt> 3)> should be used.
B<Unicode::Normalize is required to try The Conformance Test.>
+B<EBCDIC-SUPPORT IS EXPERIMENTAL.>
+
=back
=head1 AUTHOR, COPYRIGHT AND LICENSE
The Unicode::Collate module for perl was written by SADAHIRO Tomoyuki,
-<SADAHIRO@cpan.org>. This module is Copyright(C) 2001-2020,
+<SADAHIRO@cpan.org>. This module is Copyright(C) 2001-2021,
SADAHIRO Tomoyuki. Japan. All rights reserved.
This module is free software; you can redistribute it and/or
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/Big5.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/Big5.pm
index b0eb54ce5c..ebc2be2ee5 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/Big5.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/Big5.pm
@@ -4,7 +4,7 @@ use 5.006;
use strict;
use warnings;
-our $VERSION = '1.29';
+our $VERSION = '1.31';
my %u2p;
my $wt = 0x8000;
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/GB2312.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/GB2312.pm
index a0c328d328..5e1f9f9b75 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/GB2312.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/GB2312.pm
@@ -4,7 +4,7 @@ use 5.006;
use strict;
use warnings;
-our $VERSION = '1.29';
+our $VERSION = '1.31';
my %u2p;
my $wt = 0x8000;
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/JISX0208.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/JISX0208.pm
index 566852de6b..4e8ffabcc1 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/JISX0208.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/JISX0208.pm
@@ -4,7 +4,7 @@ use 5.006;
use strict;
use warnings;
-our $VERSION = '1.29';
+our $VERSION = '1.31';
my %u2p;
my $wt = 0x8000;
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/Korean.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/Korean.pm
index 2a2d2bb8cb..f83f8247f7 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/Korean.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/Korean.pm
@@ -4,7 +4,7 @@ use 5.006;
use strict;
use warnings;
-our $VERSION = '1.29';
+our $VERSION = '1.31';
my %jamo2prim = (
'1100', 0x4175, '1101', 0x4176, '1102', 0x4177, '1103', 0x4178,
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/Pinyin.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/Pinyin.pm
index 287bd025ad..e650d7684c 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/Pinyin.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/Pinyin.pm
@@ -4,7 +4,7 @@ use 5.006;
use strict;
use warnings;
-our $VERSION = '1.29';
+our $VERSION = '1.31';
my %u2p;
my $wt = 0x8000;
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/Stroke.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/Stroke.pm
index 3837d739f5..ff5c4d9ed1 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/Stroke.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/Stroke.pm
@@ -4,7 +4,7 @@ use 5.006;
use strict;
use warnings;
-our $VERSION = '1.29';
+our $VERSION = '1.31';
my %u2p;
my $wt = 0x8000;
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/Zhuyin.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/Zhuyin.pm
index 0e6a82e697..acfe686307 100755
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/Zhuyin.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/CJK/Zhuyin.pm
@@ -4,7 +4,7 @@ use 5.006;
use strict;
use warnings;
-our $VERSION = '1.29';
+our $VERSION = '1.31';
my %u2p;
my $wt = 0x8000;
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale.pm
index a4ac7ec668..185d0a8d22 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale.pm
@@ -5,7 +5,7 @@ use warnings;
use Carp;
use base qw(Unicode::Collate);
-our $VERSION = '1.29';
+our $VERSION = '1.31';
my $PL_EXT = '.pl';
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/af.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/af.pl
index 7d52d3c021..b0cc371e79 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/af.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/af.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0149 ; [.2118.0020.0009] # LATIN SMALL LETTER N PRECEDED BY APOSTROPHE
ENTRY
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ar.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ar.pl
index 7911239195..787a4f44ba 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ar.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ar.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0629 ; [.2685.0021.0002] # ARABIC LETTER TEH MARBUTA
FE94 ; [.2685.0021.0019] # ARABIC LETTER TEH MARBUTA FINAL FORM
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/as.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/as.pl
index 48c2d709fe..0d86a679ba 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/as.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/as.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0982 ; [.2A4B.0020.0002][.FFF1.0000.0000] # BENGALI SIGN ANUSVARA
0981 ; [.2A4B.0020.0002][.FFF2.0000.0000] # BENGALI SIGN CANDRABINDU
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/az.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/az.pl
index 3375c677c5..bda9ad35fd 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/az.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/az.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
# schwa doesn't require tailoring
entry => <<'ENTRY', # for DUCET v13.0.0
00E7 ; [.1FD7.0020.0002] # LATIN SMALL LETTER C WITH CEDILLA
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/be.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/be.pl
index 0dc9bf8b54..de97d045f2 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/be.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/be.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0451 ; [.23C0.0020.0002] # CYRILLIC SMALL LETTER IO
0435 0308 ; [.23C0.0020.0002] # CYRILLIC SMALL LETTER IO
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/bn.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/bn.pl
index 451156593a..12305aa011 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/bn.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/bn.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0982 ; [.2A4B.0020.0002][.FFF1.0000.0000] # BENGALI SIGN ANUSVARA
0983 ; [.2A4B.0020.0002][.FFF2.0000.0000] # BENGALI SIGN VISARGA
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ca.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ca.pl
index 608650de56..0a94d3162a 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ca.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ca.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0063 0068 ; [.1FD7.0020.0002] # <LATIN SMALL LETTER C, LATIN SMALL LETTER H>
0063 0048 ; [.1FD7.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER C, LATIN CAPITAL LETTER H>
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/cs.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/cs.pl
index 1782e3ded3..6f6c1944d9 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/cs.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/cs.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
010D ; [.1FD7.0020.0002] # LATIN SMALL LETTER C WITH CARON
0063 030C ; [.1FD7.0020.0002] # LATIN SMALL LETTER C WITH CARON
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/cu.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/cu.pl
index 338e0cf658..24eeba8e31 100755
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/cu.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/cu.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
upper_before_lower => 1,
backwards => 2,
suppress => [0x0418, 0x0438],
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/cy.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/cy.pl
index 7d9370334f..8d80673676 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/cy.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/cy.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0063 0068 ; [.1FD7.0020.0002] # <LATIN SMALL LETTER C, LATIN SMALL LETTER H>
0043 0068 ; [.1FD7.0020.0007] # <LATIN CAPITAL LETTER C, LATIN SMALL LETTER H>
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/da.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/da.pl
index eb5d1fb59f..282a81c6a3 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/da.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/da.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
upper_before_lower => 1,
entry => <<'ENTRY', # for DUCET v13.0.0
0111 ; [.1FEB.0021.0002] # LATIN SMALL LETTER D WITH STROKE
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/de_at_ph.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/de_at_ph.pl
index 472c15de92..a298f1442e 100755
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/de_at_ph.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/de_at_ph.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
00E4 ; [.1FA3.0020.0002] # LATIN SMALL LETTER A WITH DIAERESIS
0061 0308 ; [.1FA3.0020.0002] # LATIN SMALL LETTER A WITH DIAERESIS
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/de_phone.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/de_phone.pl
index c2632a189b..398bad76f6 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/de_phone.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/de_phone.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
00E4 ; [.1FA2.0021.0002][.2007.0021.0002] # LATIN SMALL LETTER A WITH DIAERESIS
0061 0308 ; [.1FA2.0021.0002][.2007.0021.0002] # LATIN SMALL LETTER A WITH DIAERESIS
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/dsb.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/dsb.pl
index b76c808763..e4dc49e30e 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/dsb.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/dsb.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
010D ; [.1FD7.0020.0002] # LATIN SMALL LETTER C WITH CARON
0063 030C ; [.1FD7.0020.0002] # LATIN SMALL LETTER C WITH CARON
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ee.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ee.pl
index 111f8c228d..b21ba43e72 100755
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ee.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ee.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
# d-tail, open-e, f-hook, gamma, eng, open-o, v-hook don't require tailoring
entry => <<'ENTRY', # for DUCET v13.0.0
0302 ; [.0000.0029.0002] # COMBINING CIRCUMFLEX ACCENT
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/eo.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/eo.pl
index a469adeffc..f835b1d84f 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/eo.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/eo.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0109 ; [.1FD7.0020.0002] # LATIN SMALL LETTER C WITH CIRCUMFLEX
0063 0302 ; [.1FD7.0020.0002] # LATIN SMALL LETTER C WITH CIRCUMFLEX
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/es.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/es.pl
index 3d7df84ee8..599ff8c25d 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/es.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/es.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
00F1 ; [.2119.0020.0002] # LATIN SMALL LETTER N WITH TILDE
006E 0303 ; [.2119.0020.0002] # LATIN SMALL LETTER N WITH TILDE
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/es_trad.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/es_trad.pl
index 4d8175cc87..6753ebda8e 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/es_trad.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/es_trad.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0063 0068 ; [.1FD7.0020.0002] # <LATIN SMALL LETTER C, LATIN SMALL LETTER H>
0043 0068 ; [.1FD7.0020.0007] # <LATIN CAPITAL LETTER C, LATIN SMALL LETTER H>
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/et.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/et.pl
index e2a22e7aa8..aee11ab621 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/et.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/et.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0161 ; [.21F4.0020.0002] # LATIN SMALL LETTER S WITH CARON
0073 030C ; [.21F4.0020.0002] # LATIN SMALL LETTER S WITH CARON
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/fa.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/fa.pl
index d394e0acb6..59db813b61 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/fa.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/fa.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0650 ; [.0000.0077.0002] # ARABIC KASRA
064B ; [.0000.007B.0002] # ARABIC FATHATAN
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/fi.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/fi.pl
index fd1f494cd8..301f63c55c 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/fi.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/fi.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
# in cldr test/fi.xml why x{110}x < xdx though xd < x{110} ?
entry => <<'ENTRY', # for DUCET v13.0.0
0111 ; [.1FEB.0021.0002][.0000.0039.0002] # LATIN SMALL LETTER D WITH STROKE
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/fi_phone.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/fi_phone.pl
index 2389e928c9..3b15ff33a9 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/fi_phone.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/fi_phone.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
# in cldr test/fi.xml why x{110}x < xdx though xd < x{110} ?
entry => <<'ENTRY', # for DUCET v13.0.0
0111 ; [.1FEB.0021.0002][.0000.0039.0002] # LATIN SMALL LETTER D WITH STROKE
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/fil.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/fil.pl
index a9ecdc974c..88a28b4119 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/fil.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/fil.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
00F1 ; [.2119.0020.0002] # LATIN SMALL LETTER N WITH TILDE
006E 0303 ; [.2119.0020.0002] # LATIN SMALL LETTER N WITH TILDE
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/fo.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/fo.pl
index 983b317dea..13d22fd9f8 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/fo.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/fo.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0111 ; [.1FEB.0021.0002] # LATIN SMALL LETTER D WITH STROKE
0064 0335 ; [.1FEB.0021.0002] # LATIN SMALL LETTER D WITH STROKE
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/fr_ca.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/fr_ca.pl
index 54adfc61ea..9cffbd039a 100755
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/fr_ca.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/fr_ca.pl
@@ -1,4 +1,4 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
backwards => 2,
};
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/gu.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/gu.pl
index cb4294003f..ed8e223bfd 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/gu.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/gu.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0A82 ; [.2AB8.0020.0002][.FFF1.0000.0000] # GUJARATI SIGN ANUSVARA
0A81 ; [.2AB8.0021.0002][.FFF1.0000.0000] # GUJARATI SIGN CANDRABINDU
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ha.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ha.pl
index ab68bb77d9..0dcac73c7e 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ha.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ha.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
# b-hook, d-hook, k-hook, y-hook don't require tailoring
entry => <<'ENTRY', # for DUCET v13.0.0
0073 0068 ; [.21D3.0020.0002] # <LATIN SMALL LETTER S, LATIN SMALL LETTER H>
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/haw.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/haw.pl
index d85d5a8cf3..cf8b460f36 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/haw.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/haw.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0065 ; [.1FA3.0020.0002][.FFF1.0000.0000] # LATIN SMALL LETTER E
0045 ; [.1FA3.0020.0008][.FFF1.0000.0000] # LATIN CAPITAL LETTER E
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/he.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/he.pl
index bd4f066ded..483bb6d3c6 100755
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/he.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/he.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
05F3 ; [*0316.001F.0002] # HEBREW PUNCTUATION GERESH
05F4 ; [*031D.001F.0002] # HEBREW PUNCTUATION GERSHAYIM
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/hi.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/hi.pl
index 4c4fb43e9f..310201fca7 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/hi.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/hi.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0902 ; [.29D7.0020.0002][.FFF1.0000.0000] # DEVANAGARI SIGN ANUSVARA
0901 ; [.29D7.0021.0002][.FFF1.0000.0000] # DEVANAGARI SIGN CANDRABINDU
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/hr.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/hr.pl
index abec51a550..faa3655a96 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/hr.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/hr.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
010D ; [.1FD7.0020.0002] # LATIN SMALL LETTER C WITH CARON
0063 030C ; [.1FD7.0020.0002] # LATIN SMALL LETTER C WITH CARON
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/hu.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/hu.pl
index 979b61ab5e..ae1809a678 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/hu.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/hu.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0063 0073 ; [.1FD7.0020.0002] # <LATIN SMALL LETTER C, LATIN SMALL LETTER S>
0063 0053 ; [.1FD7.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER C, LATIN CAPITAL LETTER S>
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/hy.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/hy.pl
index e89cc048bb..e03cba7471 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/hy.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/hy.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0587 ; [.261A.0020.0002][.FFF1.0000.0000] # ARMENIAN SMALL LIGATURE ECH YIWN
0584 ; [.261A.0020.0002][.FFF0.0000.0000] # ARMENIAN SMALL LETTER KEH
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ig.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ig.pl
index fd26dcc3f7..99681bab1b 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ig.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ig.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0063 0068 ; [.1FBD.0020.0002] # <LATIN SMALL LETTER C, LATIN SMALL LETTER H>
0043 0068 ; [.1FBD.0020.0007] # <LATIN CAPITAL LETTER C, LATIN SMALL LETTER H>
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/is.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/is.pl
index 93427d8495..8ae880f97c 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/is.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/is.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
00E1 ; [.1FBB.0020.0002] # LATIN SMALL LETTER A WITH ACUTE
0061 0301 ; [.1FBB.0020.0002] # LATIN SMALL LETTER A WITH ACUTE
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ja.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ja.pl
index c582f0a37b..9008202dcd 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ja.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ja.pl
@@ -1,6 +1,6 @@
use Unicode::Collate::CJK::JISX0208;
+{
- locale_version => 1.29,
+ locale_version => 1.31,
overrideCJK => \&Unicode::Collate::CJK::JISX0208::weightJISX0208,
entry => <<'ENTRY', # for DUCET v13.0.0
30A1 ; [.42DA.0020.000F.0002] # KATAKANA LETTER SMALL A
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/kk.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/kk.pl
index 9b951c0a88..49ab3303db 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/kk.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/kk.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0451 ; [.23C0.0020.0002] # CYRILLIC SMALL LETTER IO
0435 0308 ; [.23C0.0020.0002] # CYRILLIC SMALL LETTER IO
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/kl.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/kl.pl
index 25ddb54f3f..be88f6e6d1 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/kl.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/kl.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0111 ; [.1FEB.0021.0002] # LATIN SMALL LETTER D WITH STROKE
0064 0335 ; [.1FEB.0021.0002] # LATIN SMALL LETTER D WITH STROKE
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/kn.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/kn.pl
index 0c4b1dbced..e1cadd31a2 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/kn.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/kn.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0C82 ; [.2BCB.0020.0002][.FFF1.0000.0000] # KANNADA SIGN ANUSVARA
0C83 ; [.2BCB.0020.0002][.FFF2.0000.0000] # KANNADA SIGN VISARGA
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ko.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ko.pl
index 222b0c977c..e45f1be9b2 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ko.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ko.pl
@@ -1,6 +1,6 @@
use Unicode::Collate::CJK::Korean;
+{
- locale_version => 1.29,
+ locale_version => 1.31,
overrideCJK => \&Unicode::Collate::CJK::Korean::weightKorean,
entry => <<'ENTRY', # for DUCET v13.0.0
F967 ; [.417C.0021.0002.4E0D][.4200.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F967
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/kok.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/kok.pl
index 28c3c77885..7a528f2fcf 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/kok.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/kok.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0902 ; [.29D7.0020.0002][.FFF1.0000.0000] # DEVANAGARI SIGN ANUSVARA
0901 ; [.29D7.0021.0002][.FFF1.0000.0000] # DEVANAGARI SIGN CANDRABINDU
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/lkt.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/lkt.pl
index ad06d4a721..a5aa78b544 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/lkt.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/lkt.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
010D ; [.1FD7.0020.0002] # LATIN SMALL LETTER C WITH CARON
0063 030C ; [.1FD7.0020.0002] # LATIN SMALL LETTER C WITH CARON
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ln.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ln.pl
index 9a6dcd9134..c90ec82717 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ln.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ln.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
025B ; [.2008.0020.0002] # LATIN SMALL LETTER OPEN E
0190 ; [.2008.0020.0008] # LATIN CAPITAL LETTER OPEN E
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/lt.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/lt.pl
index b0b2a3b1e2..53211cbf26 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/lt.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/lt.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
# in cldr test/lt.xml why I-dot-acute > I-dot though i-dot-acute < i-dot ?
entry => <<'ENTRY', # for DUCET v13.0.0
0049 0307 ; [.2090.0020.0008][.0000.002E.0002] # <LATIN CAPITAL LETTER I, COMBINING DOT ABOVE>
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/lv.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/lv.pl
index c1b0a34d50..3f7a2d2fd0 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/lv.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/lv.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
010D ; [.1FEA.0020.0002] # LATIN SMALL LETTER C WITH CARON
0063 030C ; [.1FEA.0020.0002] # LATIN SMALL LETTER C WITH CARON
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/mk.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/mk.pl
index a86272c5f3..53429b2305 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/mk.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/mk.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
suppress => [0x0418, 0x0438],
entry => <<'ENTRY', # for DUCET v13.0.0
0453 ; [.23BB.0020.0002] # CYRILLIC SMALL LETTER GJE
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ml.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ml.pl
index c025ef653a..57f45d684e 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ml.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ml.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0D3D ; [.0000.00C6.0002] # MALAYALAM SIGN AVAGRAHA
0D57 ; [.2C4D.0020.0002] # MALAYALAM AU LENGTH MARK
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/mr.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/mr.pl
index b111cdcbf2..fd786ee6d3 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/mr.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/mr.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0902 ; [.29D7.0020.0002][.FFF1.0000.0000] # DEVANAGARI SIGN ANUSVARA
0901 ; [.29D7.0021.0002][.FFF1.0000.0000] # DEVANAGARI SIGN CANDRABINDU
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/mt.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/mt.pl
index 2851cc724a..b4fec802c7 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/mt.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/mt.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
upper_before_lower => 1,
entry => <<'ENTRY', # for DUCET v13.0.0
010B ; [.1FD5.0020.0002] # LATIN SMALL LETTER C WITH DOT ABOVE
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/nb.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/nb.pl
index c263f78d3a..a1c27e1c08 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/nb.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/nb.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0111 ; [.1FEB.0021.0002] # LATIN SMALL LETTER D WITH STROKE
0064 0335 ; [.1FEB.0021.0002] # LATIN SMALL LETTER D WITH STROKE
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/nn.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/nn.pl
index c263f78d3a..a1c27e1c08 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/nn.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/nn.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0111 ; [.1FEB.0021.0002] # LATIN SMALL LETTER D WITH STROKE
0064 0335 ; [.1FEB.0021.0002] # LATIN SMALL LETTER D WITH STROKE
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/nso.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/nso.pl
index 65b2add51d..1614979c4f 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/nso.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/nso.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
00EA ; [.2008.0020.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX
0065 0302 ; [.2008.0020.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/om.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/om.pl
index d125766a11..de08ffbcff 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/om.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/om.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0063 0068 ; [.2287.0020.0002] # <LATIN SMALL LETTER C, LATIN SMALL LETTER H>
0043 0068 ; [.2287.0020.0007] # <LATIN CAPITAL LETTER C, LATIN SMALL LETTER H>
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/or.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/or.pl
index def98b6232..52e029c23b 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/or.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/or.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0B01 ; [.2B0A.0020.0002][.FFF1.0000.0000] # ORIYA SIGN CANDRABINDU
0B02 ; [.2B0A.0020.0002][.FFF2.0000.0000] # ORIYA SIGN ANUSVARA
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/pa.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/pa.pl
index 4400dce5d7..2c8ce36fec 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/pa.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/pa.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0A71 ; [.0000.00C4.0002] # GURMUKHI ADDAK
0A03 ; [.0000.00C3.0002] # GURMUKHI SIGN VISARGA
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/pl.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/pl.pl
index b573a03424..998663e350 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/pl.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/pl.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0105 ; [.1FA3.0020.0002] # LATIN SMALL LETTER A WITH OGONEK
0061 0328 ; [.1FA3.0020.0002] # LATIN SMALL LETTER A WITH OGONEK
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ro.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ro.pl
index b8f24fc534..09eeb5c92c 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ro.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ro.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0103 ; [.1FA3.0020.0002] # LATIN SMALL LETTER A WITH BREVE
0061 0306 ; [.1FA3.0020.0002] # LATIN SMALL LETTER A WITH BREVE
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sa.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sa.pl
index b111cdcbf2..fd786ee6d3 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sa.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sa.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0902 ; [.29D7.0020.0002][.FFF1.0000.0000] # DEVANAGARI SIGN ANUSVARA
0901 ; [.29D7.0021.0002][.FFF1.0000.0000] # DEVANAGARI SIGN CANDRABINDU
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/se.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/se.pl
index 83bf5eae3b..7fb613a611 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/se.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/se.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
# eng, g-stroke, t-stroke don't require tailoring
entry => <<'ENTRY', # for DUCET v13.0.0
00E1 ; [.1FBB.0020.0002] # LATIN SMALL LETTER A WITH ACUTE
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/si.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/si.pl
index 0e2679408f..2d73b243d6 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/si.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/si.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0D82 ; [.2C61.0020.0002][.FFF1.0000.0000] # SINHALA SIGN ANUSVARAYA
0D83 ; [.2C61.0020.0002][.FFF2.0000.0000] # SINHALA SIGN VISARGAYA
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/si_dict.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/si_dict.pl
index aa6faf5cf7..31b499e198 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/si_dict.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/si_dict.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0D82 ; [.2C61.0020.0002][.FFF1.0000.0000] # SINHALA SIGN ANUSVARAYA
0D83 ; [.2C61.0020.0002][.FFF2.0000.0000] # SINHALA SIGN VISARGAYA
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sk.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sk.pl
index 9861405933..8db55fbe83 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sk.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sk.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
00E4 ; [.1FA3.0020.0002] # LATIN SMALL LETTER A WITH DIAERESIS
0061 0308 ; [.1FA3.0020.0002] # LATIN SMALL LETTER A WITH DIAERESIS
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sl.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sl.pl
index 218682554f..65a683a50a 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sl.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sl.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
010D ; [.1FD7.0020.0002] # LATIN SMALL LETTER C WITH CARON
0063 030C ; [.1FD7.0020.0002] # LATIN SMALL LETTER C WITH CARON
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sq.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sq.pl
index 33a85b9bc7..f4bfbfa45e 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sq.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sq.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
00E7 ; [.1FEA.0020.0002] # LATIN SMALL LETTER C WITH CEDILLA
0063 0327 ; [.1FEA.0020.0002] # LATIN SMALL LETTER C WITH CEDILLA
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sr.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sr.pl
index 3a49fbb192..5194ceea57 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sr.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sr.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
suppress => [0x0418, 0x0438],
entry => <<'ENTRY', # for DUCET v13.0.0
0439 ; [.23E5.0020.0002][.0000.0026.0002] # CYRILLIC SMALL LETTER SHORT I
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sv.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sv.pl
index ffcadbb58c..1e47fc4bee 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sv.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sv.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0111 ; [.1FEB.0021.0002] # LATIN SMALL LETTER D WITH STROKE
0064 0335 ; [.1FEB.0021.0002] # LATIN SMALL LETTER D WITH STROKE
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sv_refo.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sv_refo.pl
index 0ca1b9742e..cecb12f0a3 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sv_refo.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/sv_refo.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0111 ; [.1FEB.0021.0002] # LATIN SMALL LETTER D WITH STROKE
0064 0335 ; [.1FEB.0021.0002] # LATIN SMALL LETTER D WITH STROKE
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ta.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ta.pl
index 3b8cce1fd4..e719e95d52 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ta.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ta.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0B82 ; [.2B4D.0020.0002][.FFF0.0000.0000] # TAMIL SIGN ANUSVARA
0B83 ; [.2B4D.0020.0002][.FFF1.0000.0000] # TAMIL SIGN VISARGA
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/te.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/te.pl
index b331de00e5..dbba1fe465 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/te.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/te.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0C01 ; [.2B81.0020.0002][.FFF1.0000.0000] # TELUGU SIGN CANDRABINDU
0C02 ; [.2B81.0020.0002][.FFF2.0000.0000] # TELUGU SIGN ANUSVARA
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/th.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/th.pl
index b0466726ac..ff8ebbf936 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/th.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/th.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
variable => 'shifted',
alternate => 'shifted',
entry => <<'ENTRY', # for DUCET v13.0.0
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/tn.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/tn.pl
index 65b2add51d..1614979c4f 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/tn.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/tn.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
00EA ; [.2008.0020.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX
0065 0302 ; [.2008.0020.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/to.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/to.pl
index 11cb0b27c7..0317d3b518 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/to.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/to.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
006E 0067 ; [.2119.0020.0002] # <LATIN SMALL LETTER N, LATIN SMALL LETTER G>
004E 0067 ; [.2119.0020.0007] # <LATIN CAPITAL LETTER N, LATIN SMALL LETTER G>
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/tr.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/tr.pl
index da9922f7b8..f3e2f61f12 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/tr.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/tr.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
00E7 ; [.1FD7.0020.0002] # LATIN SMALL LETTER C WITH CEDILLA
0063 0327 ; [.1FD7.0020.0002] # LATIN SMALL LETTER C WITH CEDILLA
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ug_cyrl.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ug_cyrl.pl
index b85d5f2519..6f3ee57bca 100755
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ug_cyrl.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ug_cyrl.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
04D9 ; [.23C0.0020.0002] # CYRILLIC SMALL LETTER SCHWA
04D8 ; [.23C0.0020.0008] # CYRILLIC CAPITAL LETTER SCHWA
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/uk.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/uk.pl
index 12ff02d3c0..f1eb2d2aca 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/uk.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/uk.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0491 ; [.239C.0020.0002] # CYRILLIC SMALL LETTER GHE WITH UPTURN
0490 ; [.239C.0020.0008] # CYRILLIC CAPITAL LETTER GHE WITH UPTURN
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ur.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ur.pl
index 2f6cb09439..400ee1c507 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ur.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/ur.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0623 ; [.2672.0021.0002] # ARABIC LETTER ALEF WITH HAMZA ABOVE
0627 0654 ; [.2672.0021.0002] # ARABIC LETTER ALEF WITH HAMZA ABOVE
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/vi.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/vi.pl
index b82cc07eb0..f729103a1d 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/vi.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/vi.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
# 0306 is not a Vietnamese tone, just to avoid \x{306} eq. to something.
entry => <<'ENTRY', # for DUCET v13.0.0
0309 ; [.0000.0026.0002][.0000.00F0.0000] # COMBINING HOOK ABOVE
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/vo.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/vo.pl
index 37187197cc..58457a35f6 100755
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/vo.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/vo.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
00E4 ; [.1FA3.0020.0002] # LATIN SMALL LETTER A WITH DIAERESIS
0061 0308 ; [.1FA3.0020.0002] # LATIN SMALL LETTER A WITH DIAERESIS
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/wae.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/wae.pl
index 6681a3493a..6b16cf6b3a 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/wae.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/wae.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0061 0061 ; [.1FA2.0020.0002][.0000.0024.0002] # <LATIN SMALL LETTER A, LATIN SMALL LETTER A>
00E4 00E4 ; [.1FA2.0020.0002][.0000.002D.0002] # <LATIN SMALL LETTER A WITH DIAERESIS, LATIN SMALL LETTER A WITH DIAERESIS>
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/wo.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/wo.pl
index 2c5ed11636..6491f60b56 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/wo.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/wo.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
# eng doesn't require tailoring
entry => <<'ENTRY', # for DUCET v13.0.0
00E0 ; [.1FA3.0020.0002] # LATIN SMALL LETTER A WITH GRAVE
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/yo.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/yo.pl
index 765e68b45b..44f8aa7d0a 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/yo.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/yo.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
1EB9 ; [.2008.0020.0002] # LATIN SMALL LETTER E WITH DOT BELOW
0065 0323 ; [.2008.0020.0002] # LATIN SMALL LETTER E WITH DOT BELOW
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/zh.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/zh.pl
index c3df346f60..63dff38029 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/zh.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/zh.pl
@@ -1,5 +1,5 @@
+{
- locale_version => 1.29,
+ locale_version => 1.31,
entry => <<'ENTRY', # for DUCET v13.0.0
0101 ; [.1FA2.001C.0002] # LATIN SMALL LETTER A WITH MACRON
0061 0304 ; [.1FA2.001C.0002] # LATIN SMALL LETTER A WITH MACRON
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/zh_big5.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/zh_big5.pl
index 528ce258cc..b62f740682 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/zh_big5.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/zh_big5.pl
@@ -1,6 +1,6 @@
use Unicode::Collate::CJK::Big5;
+{
- locale_version => 1.29,
+ locale_version => 1.31,
overrideCJK => \&Unicode::Collate::CJK::Big5::weightBig5,
entry => <<'ENTRY', # for DUCET v13.0.0
0101 ; [.1FA2.001C.0002] # LATIN SMALL LETTER A WITH MACRON
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/zh_gb.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/zh_gb.pl
index f327cd8669..308c6405b1 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/zh_gb.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/zh_gb.pl
@@ -1,6 +1,6 @@
use Unicode::Collate::CJK::GB2312;
+{
- locale_version => 1.29,
+ locale_version => 1.31,
overrideCJK => \&Unicode::Collate::CJK::GB2312::weightGB2312,
entry => <<'ENTRY', # for DUCET v13.0.0
0101 ; [.1FA2.001C.0002] # LATIN SMALL LETTER A WITH MACRON
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/zh_pin.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/zh_pin.pl
index 30d636f219..13e21cce3b 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/zh_pin.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/zh_pin.pl
@@ -1,6 +1,6 @@
use Unicode::Collate::CJK::Pinyin;
+{
- locale_version => 1.29,
+ locale_version => 1.31,
overrideCJK => \&Unicode::Collate::CJK::Pinyin::weightPinyin,
entry => <<'ENTRY', # for DUCET v13.0.0
0101 ; [.1FA2.001C.0002] # LATIN SMALL LETTER A WITH MACRON
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/zh_strk.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/zh_strk.pl
index 08c733032b..7df2564e3c 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/zh_strk.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/zh_strk.pl
@@ -1,6 +1,6 @@
use Unicode::Collate::CJK::Stroke;
+{
- locale_version => 1.29,
+ locale_version => 1.31,
overrideCJK => \&Unicode::Collate::CJK::Stroke::weightStroke,
entry => <<'ENTRY', # for DUCET v13.0.0
0101 ; [.1FA2.001C.0002] # LATIN SMALL LETTER A WITH MACRON
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/zh_zhu.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/zh_zhu.pl
index d2a80c8e9b..c65cdaf7ba 100755
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/zh_zhu.pl
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Collate/Locale/zh_zhu.pl
@@ -1,6 +1,6 @@
use Unicode::Collate::CJK::Zhuyin;
+{
- locale_version => 1.29,
+ locale_version => 1.31,
overrideCJK => \&Unicode::Collate::CJK::Zhuyin::weightZhuyin,
entry => <<'ENTRY', # for DUCET v13.0.0
02C9 ; [.0000.0199.0002] # MODIFIER LETTER MACRON
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Normalize.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Normalize.pm
index fd6f1cb700..c8053f7d38 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Normalize.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/Normalize.pm
@@ -1,14 +1,5 @@
package Unicode::Normalize;
-BEGIN {
- unless ('A' eq pack('U', 0x41)) {
- die "Unicode::Normalize cannot stringify a Unicode code point\n";
- }
- unless (0x41 == unpack('U', 'A')) {
- die "Unicode::Normalize cannot get Unicode code point\n";
- }
-}
-
use 5.006;
use strict;
use warnings;
@@ -16,7 +7,7 @@ use Carp;
no warnings 'utf8';
-our $VERSION = '1.28';
+our $VERSION = '1.32';
our $PACKAGE = __PACKAGE__;
our @EXPORT = qw( NFC NFD NFKC NFKD );
@@ -40,16 +31,58 @@ our %EXPORT_TAGS = (
## utilities for tests
##
-sub pack_U {
- return pack('U*', @_);
+ # No EBCDIC support on early perls
+*to_native = ($::IS_ASCII || $] < 5.008)
+ ? sub { return shift }
+ : sub { utf8::unicode_to_native(shift) };
+
+*from_native = ($::IS_ASCII || $] < 5.008)
+ ? sub { return shift }
+ : sub { utf8::native_to_unicode(shift) };
+
+# The .t files are all in terms of Unicode, so xlate to/from native
+sub dot_t_pack_U {
+ return pack('U*', map { to_native($_) } @_);
}
-sub unpack_U {
+sub dot_t_unpack_U {
# The empty pack returns an empty UTF-8 string, so the effect is to force
# the shifted parameter into being UTF-8. This allows this to work on
# Perl 5.6, where there is no utf8::upgrade().
- return unpack('U*', shift(@_).pack('U*'));
+ return map { from_native($_) } unpack('U*', shift(@_).pack('U*'));
+}
+
+sub get_printable_string ($) {
+ use bytes;
+ my $s = shift;
+
+ # DeMorgan's laws cause this to mean ascii printables
+ return $s if $s =~ /[^[:^ascii:][:^print:]]/;
+
+ return join " ", map { sprintf "\\x%02x", ord $_ } split "", $s;
+}
+
+sub ok ($$;$) {
+ my $count_ref = shift; # Test number in caller
+ my $p = my $r = shift;
+ my $x;
+ if (@_) {
+ $x = shift;
+ $p = !defined $x ? !defined $r : !defined $r ? 0 : $r eq $x;
+ }
+
+ print $p ? "ok" : "not ok", ' ', ++$$count_ref, "\n";
+
+ return if $p;
+
+ my (undef, $file, $line) = caller(1);
+ print STDERR "# Failed test $$count_ref at $file line $line\n";
+
+ return unless defined $x;
+
+ print STDERR "# got ", get_printable_string($r), "\n";
+ print STDERR "# expected ", get_printable_string($x), "\n";
}
require Exporter;
@@ -343,7 +376,7 @@ Note that C<$unprocessed> will be modified as a side-effect.
=head2 Quick Check
-(see Annex 8, UAX #15; and F<DerivedNormalizationProps.txt>)
+(see Annex 8, UAX #15; and F<lib/unicore/DerivedNormalizationProps.txt>)
The following functions check whether the string is in that normalization form.
@@ -571,8 +604,10 @@ so one could cause Unicode 3.2 to be used in any perl version starting with
In older Unicode versions, a small number of characters (all of which are
CJK compatibility ideographs as far as they have been found) may have
-an erroneous decomposition mapping (see F<NormalizationCorrections.txt>).
-Anyhow, this module will neither refer to F<NormalizationCorrections.txt>
+an erroneous decomposition mapping (see
+F<lib/unicore/NormalizationCorrections.txt>).
+Anyhow, this module will neither refer to
+F<lib/unicore/NormalizationCorrections.txt>
nor provide any specific version of normalization. Therefore this module
running on an older perl with an older Unicode database may use
the erroneous decomposition mapping blindly conforming to the Unicode database.
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/UCD.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/UCD.pm
index 11fa2bef6a..6f4c4b2502 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/UCD.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode/UCD.pm
@@ -5,7 +5,7 @@ use warnings;
no warnings 'surrogate'; # surrogates can be inputs to this
use charnames ();
-our $VERSION = '0.75';
+our $VERSION = '0.78';
sub DEBUG () { 0 }
$|=1 if DEBUG;
@@ -1972,7 +1972,7 @@ Locale is not completely independent. The I<turkic> field contains results to
use when the locale is a Turkic language.
For more information about case mappings see
-L<http://www.unicode.org/unicode/reports/tr21>
+L<http://www.unicode.org/reports/tr21>
=cut
@@ -2219,7 +2219,7 @@ hash will not have any of the base keys, like C<code>, C<upper>, etc., but
will contain only locale keys.
For more information about case mappings see
-L<http://www.unicode.org/unicode/reports/tr21/>
+L<http://www.unicode.org/reports/tr21/>
=cut
@@ -2346,25 +2346,23 @@ my %NAMEDSEQ;
sub _namedseq {
unless (%NAMEDSEQ) {
- my $namedseqfh = openunicode("Name.pl");
- local $_;
- local $/ = "\n";
- while (<$namedseqfh>) {
- next if m/ ^ \s* \# /x;
-
- # Each entry is currently two lines. The first contains the code
+ my @list = split "\n", do "unicore/Name.pl";
+ for (my $i = 0; $i < @list; $i += 3) {
+ # Each entry is currently three lines. The first contains the code
# points in the sequence separated by spaces. If this entry
# doesn't have spaces, it isn't a named sequence.
- if (/^ [0-9A-F]{4,5} (?: \ [0-9A-F]{4,5} )+ $ /x) {
- my $sequence = $_;
- chomp $sequence;
-
- # And the second is the name
- my $name = <$namedseqfh>;
- chomp $name;
- my @s = map { chr(hex($_)) } split(' ', $sequence);
- $NAMEDSEQ{$name} = join("", @s);
- }
+ next unless $list[$i] =~ /^ [0-9A-F]{4,5} (?: \ [0-9A-F]{4,5} )+ $ /x;
+
+ my $sequence = $list[$i];
+ chomp $sequence;
+
+ # And the second is the name
+ my $name = $list[$i+1];
+ chomp $name;
+ my @s = map { chr(hex($_)) } split(' ', $sequence);
+ $NAMEDSEQ{$name} = join("", @s);
+
+ # And the third is empty
}
}
}
@@ -2448,7 +2446,7 @@ sub _numeric {
use Unicode::UCD 'num';
my $val = num("123");
- my $one_quarter = num("\N{VULGAR FRACTION 1/4}");
+ my $one_quarter = num("\N{VULGAR FRACTION ONE QUARTER}");
my $val = num("12a", \$valid_length); # $valid_length contains 2
C<num()> returns the numeric value of the input Unicode string; or C<undef> if it
@@ -3473,7 +3471,7 @@ points 97 through 122. To get the mapping for any code point in this range,
you take the offset it has from the beginning code point of the range, and add
that to the mapping for that first code point. So, the mapping for 122 ("z")
is derived by taking the offset of 122 from 97 (=25) and adding that to 65,
-yielding 90 ("z"). Likewise for everything in between.
+yielding 90 ("Z"). Likewise for everything in between.
Requiring this simple adjustment allows the returned arrays to be
significantly smaller than otherwise, up to a factor of 10, speeding up
@@ -4727,7 +4725,7 @@ nor the punctuation.
For blocks see L<http://www.unicode.org/Public/UNIDATA/Blocks.txt>
-For scripts see UTR #24: L<http://www.unicode.org/unicode/reports/tr24/>
+For scripts see UTR #24: L<http://www.unicode.org/reports/tr24/>
=head2 B<Matching Scripts and Blocks>