From 071db25d4bd6237e4ead7e44b9c1420448a117ff Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 23 Mar 2002 19:50:02 +0000
Subject: Upgrade to Encode 0.97, from Dan Kogai.

p4raw-id: //depot/perl@15446
---
 ext/Encode/KR/KR.pm       | 7 ++++++-
 ext/Encode/KR/Makefile.PL | 6 +++---
 2 files changed, 9 insertions(+), 4 deletions(-)

(limited to 'ext/Encode/KR')

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';
-- 
cgit v1.2.1