Upgrade to Encode 1.93.

[p5sagit/p5-mst-13.2.git] / ext / Encode / lib / Encode / CJKConstants.pm

diff --git a/ext/Encode/lib/Encode/CJKConstants.pm b/ext/Encode/lib/Encode/CJKConstants.pm
index 63cf5ac..bea2f3e 100644 (file)
--- a/ext/Encode/lib/Encode/CJKConstants.pm
+++ b/ext/Encode/lib/Encode/CJKConstants.pm
@@ -1,13 +1,13 @@
 #
-# $Id: CJKConstants.pm,v 0.99 2002/03/25 19:29:22 dankogai Exp dankogai $
+# $Id: CJKConstants.pm,v 1.2 2003/04/24 17:43:16 dankogai Exp $
 #
 
 package Encode::CJKConstants;
 
 use strict;
 
-our $RCSID = q$Id: CJKConstants.pm,v 0.99 2002/03/25 19:29:22 dankogai Exp dankogai $;
-our $VERSION = do { my @r = (q$Revision: 0.99 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $RCSID = q$Id: CJKConstants.pm,v 1.2 2003/04/24 17:43:16 dankogai Exp $;
+our $VERSION = do { my @r = (q$Revision: 1.2 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 use Carp;
 
@@ -37,6 +37,7 @@ our %ESC =  (
         KSC_5601 => "\e\$(C",
         ASC      => "\e\(B",
         KANA     => "\e\(I",
+        '2022_KR' => "\e\$)C",
         );
 
 our %RE =
@@ -50,6 +51,7 @@ our %RE =
      JIS_0212  => "\e" . '\$\(D',
      ISO_ASC   => "\e" . '\([BJ]',     
      JIS_KANA  => "\e" . '\(I',
+     '2022_KR' => "\e" . '\$\)C',
      SJIS_C    => '[\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc]',
      SJIS_KANA => '[\xa1-\xdf]',
      UTF8      => '[\xc0-\xdf][\x80-\xbf]|[\xe0-\xef][\x80-\xbf][\x80-\xbf]'
@@ -57,3 +59,8 @@ our %RE =
 
 1;
 
+=head1 NAME
+
+Encode::CJKConstants.pm -- Internally used by Encode::??::ISO_2022_*
+
+=cut