X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FEncode%2Flib%2FEncode%2FCJKConstants.pm;h=bea2f3eecddcc9b287192d97575dd035e238324a;hb=8676e7d322bcb9ce4010d380a2367dc55cf6a6de;hp=63cf5acd451e401c5dc5755421df648009f37f11;hpb=64ffdd5e3070e2601e8355984407a490ea080833;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/Encode/lib/Encode/CJKConstants.pm b/ext/Encode/lib/Encode/CJKConstants.pm
index 63cf5ac..bea2f3e 100644
--- 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