diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Unicode/Collate/CJK/Korean.pm')
| -rw-r--r-- | Master/tlpkg/tlperl/lib/Unicode/Collate/CJK/Korean.pm | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/Master/tlpkg/tlperl/lib/Unicode/Collate/CJK/Korean.pm b/Master/tlpkg/tlperl/lib/Unicode/Collate/CJK/Korean.pm index 73e4053ae8c..2a2d2bb8cba 100644 --- a/Master/tlpkg/tlperl/lib/Unicode/Collate/CJK/Korean.pm +++ b/Master/tlpkg/tlperl/lib/Unicode/Collate/CJK/Korean.pm @@ -4,21 +4,21 @@ use 5.006; use strict; use warnings; -our $VERSION = '1.27'; +our $VERSION = '1.29'; my %jamo2prim = ( - '1100', 0x3D0C, '1101', 0x3D0D, '1102', 0x3D0E, '1103', 0x3D0F, - '1105', 0x3D11, '1106', 0x3D12, '1107', 0x3D13, '1109', 0x3D15, - '110A', 0x3D16, '110B', 0x3D17, '110C', 0x3D18, '110E', 0x3D1A, - '110F', 0x3D1B, '1110', 0x3D1C, '1111', 0x3D1D, '1112', 0x3D1E, - '1161', 0x3D8A, '1162', 0x3D8B, '1163', 0x3D8C, '1165', 0x3D8E, - '1166', 0x3D8F, '1167', 0x3D90, '1168', 0x3D91, '1169', 0x3D92, - '116A', 0x3D93, '116B', 0x3D94, '116C', 0x3D95, '116D', 0x3D96, - '116E', 0x3D97, '116F', 0x3D98, '1170', 0x3D99, '1171', 0x3D9A, - '1172', 0x3D9B, '1173', 0x3D9C, '1174', 0x3D9D, '1175', 0x3D9E, - '11A8', 0x3DE8, '11AB', 0x3DEB, '11AF', 0x3DEF, '11B7', 0x3DF7, - '11B8', 0x3DF8, '11BC', 0x3DFC, '11BD', 0x3DFD, -); # for DUCET v10.0.0 + '1100', 0x4175, '1101', 0x4176, '1102', 0x4177, '1103', 0x4178, + '1105', 0x417A, '1106', 0x417B, '1107', 0x417C, '1109', 0x417E, + '110A', 0x417F, '110B', 0x4180, '110C', 0x4181, '110E', 0x4183, + '110F', 0x4184, '1110', 0x4185, '1111', 0x4186, '1112', 0x4187, + '1161', 0x41F3, '1162', 0x41F4, '1163', 0x41F5, '1165', 0x41F7, + '1166', 0x41F8, '1167', 0x41F9, '1168', 0x41FA, '1169', 0x41FB, + '116A', 0x41FC, '116B', 0x41FD, '116C', 0x41FE, '116D', 0x41FF, + '116E', 0x4200, '116F', 0x4201, '1170', 0x4202, '1171', 0x4203, + '1172', 0x4204, '1173', 0x4205, '1174', 0x4206, '1175', 0x4207, + '11A8', 0x4251, '11AB', 0x4254, '11AF', 0x4258, '11B7', 0x4260, + '11B8', 0x4261, '11BC', 0x4265, '11BD', 0x4266, +); # for DUCET v13.0.0 my(%u2e, $prim, $wt); while (<DATA>) { |