X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FEncode%2FKR%2FKR.pm;h=cf5926c92988a33dc505219378ac71665600e515;hb=67d7b5efba6bec0629bea8f1e11cea68499f85da;hp=6c4c631361494f06d20c1a324bf7a4d57cd537ed;hpb=51e9e896dac578201e3ff6f3afd2c809bebc4c7d;p=p5sagit%2Fp5-mst-13.2.git diff --git a/ext/Encode/KR/KR.pm b/ext/Encode/KR/KR.pm index 6c4c631..cf5926c 100644 --- a/ext/Encode/KR/KR.pm +++ b/ext/Encode/KR/KR.pm @@ -4,14 +4,12 @@ BEGIN { die "Encode::KR not supported on EBCDIC\n"; } } -our $VERSION = do { my @r = (q$Revision: 0.99 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +our $VERSION = do { my @r = (q$Revision: 1.0 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; use Encode; use XSLoader; XSLoader::load('Encode::KR',$VERSION); -use Encode::KR::2022_KR; - 1; __END__ =head1 NAME @@ -32,18 +30,26 @@ are as follows. Canonical Alias Description -------------------------------------------------------------------- - euc-kr /euc.*kr$/i EUC (Extended Unix Character) - /kr.*euc/i + euc-kr /\beuc.*kr$/i EUC (Extended Unix Character) + /\bkr.*euc$/i ksc5601 Korean standard code set - cp949 Code Page 949 - (EUC-KR + Unified Hangul Code) + cp949 Code Page 949 (EUC-KR + 8,822 + (additional Hangul syllables) + johab JOHAB A supplementary encoding defined in + Annex 3 of KS X 1001:1998 + iso-2022-kr iso-2022-kr [RFC1557] -------------------------------------------------------------------- To find how to use this module in detail, see L. =head1 BUGS -The C (two-byte combination code) encoding is not supported. +When you see C on mails and web pages, they really +mean "cp949" encodings. To fix that, the following aliases are set; + + qr/(?:x-)?uhc$/i => '"cp949"' + qr/(?:x-)?windows-949$/i => '"cp949"' + qr/ks_c_5601-1987$/i => '"cp949"' ASCII part (0x00-0x7f) is preserved for all encodings, even though it conflicts with mappings by the Unicode Consortium. See