diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-23 19:50:02 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-23 19:50:02 +0000 |
| commit | 071db25d4bd6237e4ead7e44b9c1420448a117ff (patch) | |
| tree | a150089b0a541831d71a182e6f31041f74d18f2f /ext/Encode/KR | |
| parent | 3be065a1e9733344e98c8647d9690fa7c678b5c5 (diff) | |
| download | perl-071db25d4bd6237e4ead7e44b9c1420448a117ff.tar.gz | |
Upgrade to Encode 0.97, from Dan Kogai.
p4raw-id: //depot/perl@15446
Diffstat (limited to 'ext/Encode/KR')
| -rw-r--r-- | ext/Encode/KR/KR.pm | 7 | ||||
| -rw-r--r-- | ext/Encode/KR/Makefile.PL | 6 |
2 files changed, 9 insertions, 4 deletions
diff --git a/ext/Encode/KR/KR.pm b/ext/Encode/KR/KR.pm index e920cf7631..7dcafd0441 100644 --- a/ext/Encode/KR/KR.pm +++ b/ext/Encode/KR/KR.pm @@ -1,5 +1,10 @@ package Encode::KR; -our $VERSION = do { my @r = (q$Revision: 0.96 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +BEGIN { + if (ord("A") == 193) { + die "Encode::KR not supported on EBCDIC\n"; + } +} +our $VERSION = do { my @r = (q$Revision: 0.97 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; use Encode; use XSLoader; diff --git a/ext/Encode/KR/Makefile.PL b/ext/Encode/KR/Makefile.PL index 9b8303d506..ffe4ae4c77 100644 --- a/ext/Encode/KR/Makefile.PL +++ b/ext/Encode/KR/Makefile.PL @@ -2,9 +2,9 @@ use 5.7.2; use strict; use ExtUtils::MakeMaker; -my %tables = (EUC_KR => ['euc-kr.enc'], - KSC5601 => ['ksc5601.enc'], - CP949 => ['cp949.enc'], +my %tables = (euc_kr_t => ['euc-kr.enc'], + '5601_t' => ['ksc5601.enc'], + cp_kr_t => ['cp949.enc'], ); my $name = 'KR'; |