From 12679ab7d3c2a210f4123163671b532b8b55d5f9 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 15 Mar 2024 03:06:35 +0000 Subject: CTAN sync 202403150306 --- .../tlnet/tlpkg/tlperl/lib/Unicode/Collate.pm | 30 ++++++---- .../tlpkg/tlperl/lib/Unicode/Collate/CJK/Big5.pm | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/CJK/GB2312.pm | 2 +- .../tlperl/lib/Unicode/Collate/CJK/JISX0208.pm | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/CJK/Korean.pm | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/CJK/Pinyin.pm | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/CJK/Stroke.pm | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/CJK/Zhuyin.pm | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale.pm | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/af.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/ar.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/as.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/az.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/be.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/bn.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/ca.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/cs.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/cu.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/cy.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/da.pl | 2 +- .../tlperl/lib/Unicode/Collate/Locale/de_at_ph.pl | 2 +- .../tlperl/lib/Unicode/Collate/Locale/de_phone.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/dsb.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/ee.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/eo.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/es.pl | 2 +- .../tlperl/lib/Unicode/Collate/Locale/es_trad.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/et.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/fa.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/fi.pl | 2 +- .../tlperl/lib/Unicode/Collate/Locale/fi_phone.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/fil.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/fo.pl | 2 +- .../tlperl/lib/Unicode/Collate/Locale/fr_ca.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/gu.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/ha.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/haw.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/he.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/hi.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/hr.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/hu.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/hy.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/ig.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/is.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/ja.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/kk.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/kl.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/kn.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/ko.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/kok.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/lkt.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/ln.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/lt.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/lv.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/mk.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/ml.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/mr.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/mt.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/nb.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/nn.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/nso.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/om.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/or.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/pa.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/pl.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/ro.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/sa.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/se.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/si.pl | 2 +- .../tlperl/lib/Unicode/Collate/Locale/si_dict.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/sk.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/sl.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/sq.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/sr.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/sv.pl | 2 +- .../tlperl/lib/Unicode/Collate/Locale/sv_refo.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/ta.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/te.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/th.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/tn.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/to.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/tr.pl | 2 +- .../tlperl/lib/Unicode/Collate/Locale/ug_cyrl.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/uk.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/ur.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/vi.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/vo.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/wae.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/wo.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/yo.pl | 2 +- .../tlpkg/tlperl/lib/Unicode/Collate/Locale/zh.pl | 2 +- .../tlperl/lib/Unicode/Collate/Locale/zh_big5.pl | 2 +- .../tlperl/lib/Unicode/Collate/Locale/zh_gb.pl | 2 +- .../tlperl/lib/Unicode/Collate/Locale/zh_pin.pl | 2 +- .../tlperl/lib/Unicode/Collate/Locale/zh_strk.pl | 2 +- .../tlperl/lib/Unicode/Collate/Locale/zh_zhu.pl | 2 +- .../tlnet/tlpkg/tlperl/lib/Unicode/Normalize.pm | 69 ++++++++++++++++------ .../texlive/tlnet/tlpkg/tlperl/lib/Unicode/UCD.pm | 44 +++++++------- 98 files changed, 185 insertions(+), 148 deletions(-) (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/Unicode') 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 "non-ignorable", level =E 3)> should be used. B +B + =back =head1 AUTHOR, COPYRIGHT AND LICENSE The Unicode::Collate module for perl was written by SADAHIRO Tomoyuki, -. This module is Copyright(C) 2001-2020, +. 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] # 0063 0048 ; [.1FD7.0020.0007][.0000.0000.0002] # 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] # 0043 0068 ; [.1FD7.0020.0007] # 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] # 0043 0068 ; [.1FD7.0020.0007] # 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] # 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] # 0063 0053 ; [.1FD7.0020.0007][.0000.0000.0002] # 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] # 0043 0068 ; [.1FBD.0020.0007] # 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] # 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] # 0043 0068 ; [.2287.0020.0007] # 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] # 004E 0067 ; [.2119.0020.0007] # 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] # 00E4 00E4 ; [.1FA2.0020.0002][.0000.002D.0002] # 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) +(see Annex 8, UAX #15; and F) 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). -Anyhow, this module will neither refer to F +an erroneous decomposition mapping (see +F). +Anyhow, this module will neither refer to +F 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 field contains results to use when the locale is a Turkic language. For more information about case mappings see -L +L =cut @@ -2219,7 +2219,7 @@ hash will not have any of the base keys, like C, C, etc., but will contain only locale keys. For more information about case mappings see -L +L =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 returns the numeric value of the input Unicode string; or C 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 -For scripts see UTR #24: L +For scripts see UTR #24: L =head2 B -- cgit v1.2.3