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 7d19eac9488..1d67f1392b4 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 Unicode::Collate; -our $VERSION = '0.88'; +our $VERSION = '0.93'; my %jamo2prim = ( - 0x1100, 0x313B, 0x1101, 0x313C, 0x1102, 0x313D, 0x1103, 0x313E, - 0x1105, 0x3140, 0x1106, 0x3141, 0x1107, 0x3142, 0x1109, 0x3144, - 0x110A, 0x3145, 0x110B, 0x3146, 0x110C, 0x3147, 0x110E, 0x3149, - 0x110F, 0x314A, 0x1110, 0x314B, 0x1111, 0x314C, 0x1112, 0x314D, - 0x1161, 0x31B9, 0x1162, 0x31BA, 0x1163, 0x31BB, 0x1165, 0x31BD, - 0x1166, 0x31BE, 0x1167, 0x31BF, 0x1168, 0x31C0, 0x1169, 0x31C1, - 0x116A, 0x31C2, 0x116B, 0x31C3, 0x116C, 0x31C4, 0x116D, 0x31C5, - 0x116E, 0x31C6, 0x116F, 0x31C7, 0x1170, 0x31C8, 0x1171, 0x31C9, - 0x1172, 0x31CA, 0x1173, 0x31CB, 0x1174, 0x31CC, 0x1175, 0x31CD, - 0x11A8, 0x3217, 0x11AB, 0x321A, 0x11AF, 0x321E, 0x11B7, 0x3226, - 0x11B8, 0x3227, 0x11BC, 0x322B, 0x11BD, 0x322C, -); # for DUCET v6.1.0 + 0x1100, 0x3156, 0x1101, 0x3157, 0x1102, 0x3158, 0x1103, 0x3159, + 0x1105, 0x315B, 0x1106, 0x315C, 0x1107, 0x315D, 0x1109, 0x315F, + 0x110A, 0x3160, 0x110B, 0x3161, 0x110C, 0x3162, 0x110E, 0x3164, + 0x110F, 0x3165, 0x1110, 0x3166, 0x1111, 0x3167, 0x1112, 0x3168, + 0x1161, 0x31D4, 0x1162, 0x31D5, 0x1163, 0x31D6, 0x1165, 0x31D8, + 0x1166, 0x31D9, 0x1167, 0x31DA, 0x1168, 0x31DB, 0x1169, 0x31DC, + 0x116A, 0x31DD, 0x116B, 0x31DE, 0x116C, 0x31DF, 0x116D, 0x31E0, + 0x116E, 0x31E1, 0x116F, 0x31E2, 0x1170, 0x31E3, 0x1171, 0x31E4, + 0x1172, 0x31E5, 0x1173, 0x31E6, 0x1174, 0x31E7, 0x1175, 0x31E8, + 0x11A8, 0x3232, 0x11AB, 0x3235, 0x11AF, 0x3239, 0x11B7, 0x3241, + 0x11B8, 0x3242, 0x11BC, 0x3246, 0x11BD, 0x3247, +); # for DUCET v6.2.0 my(%u2e, $prim, $wt); while (<DATA>) { |