summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Unicode/Collate/CJK/Korean.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Unicode/Collate/CJK/Korean.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Unicode/Collate/CJK/Korean.pm26
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 1d67f1392b4..9d8e4db61e0 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.93';
+our $VERSION = '1.02';
my %jamo2prim = (
- 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
+ 0x1100, 0x3152, 0x1101, 0x3153, 0x1102, 0x3154, 0x1103, 0x3155,
+ 0x1105, 0x3157, 0x1106, 0x3158, 0x1107, 0x3159, 0x1109, 0x315B,
+ 0x110A, 0x315C, 0x110B, 0x315D, 0x110C, 0x315E, 0x110E, 0x3160,
+ 0x110F, 0x3161, 0x1110, 0x3162, 0x1111, 0x3163, 0x1112, 0x3164,
+ 0x1161, 0x31D0, 0x1162, 0x31D1, 0x1163, 0x31D2, 0x1165, 0x31D4,
+ 0x1166, 0x31D5, 0x1167, 0x31D6, 0x1168, 0x31D7, 0x1169, 0x31D8,
+ 0x116A, 0x31D9, 0x116B, 0x31DA, 0x116C, 0x31DB, 0x116D, 0x31DC,
+ 0x116E, 0x31DD, 0x116F, 0x31DE, 0x1170, 0x31DF, 0x1171, 0x31E0,
+ 0x1172, 0x31E1, 0x1173, 0x31E2, 0x1174, 0x31E3, 0x1175, 0x31E4,
+ 0x11A8, 0x322E, 0x11AB, 0x3231, 0x11AF, 0x3235, 0x11B7, 0x323D,
+ 0x11B8, 0x323E, 0x11BC, 0x3242, 0x11BD, 0x3243,
+); # for DUCET v6.3.0
my(%u2e, $prim, $wt);
while (<DATA>) {