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 6905f20614d..73e4053ae8c 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.25'; +our $VERSION = '1.27'; my %jamo2prim = ( - '1100', 0x3BF5, '1101', 0x3BF6, '1102', 0x3BF7, '1103', 0x3BF8, - '1105', 0x3BFA, '1106', 0x3BFB, '1107', 0x3BFC, '1109', 0x3BFE, - '110A', 0x3BFF, '110B', 0x3C00, '110C', 0x3C01, '110E', 0x3C03, - '110F', 0x3C04, '1110', 0x3C05, '1111', 0x3C06, '1112', 0x3C07, - '1161', 0x3C73, '1162', 0x3C74, '1163', 0x3C75, '1165', 0x3C77, - '1166', 0x3C78, '1167', 0x3C79, '1168', 0x3C7A, '1169', 0x3C7B, - '116A', 0x3C7C, '116B', 0x3C7D, '116C', 0x3C7E, '116D', 0x3C7F, - '116E', 0x3C80, '116F', 0x3C81, '1170', 0x3C82, '1171', 0x3C83, - '1172', 0x3C84, '1173', 0x3C85, '1174', 0x3C86, '1175', 0x3C87, - '11A8', 0x3CD1, '11AB', 0x3CD4, '11AF', 0x3CD8, '11B7', 0x3CE0, - '11B8', 0x3CE1, '11BC', 0x3CE5, '11BD', 0x3CE6, -); # for DUCET v9.0.0 + '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 my(%u2e, $prim, $wt); while (<DATA>) { |