Various tweaks to Encode

[p5sagit/p5-mst-13.2.git] / ext / Encode / lib / Encode / KR / 2022_KR.pm

diff --git a/ext/Encode/lib/Encode/KR/2022_KR.pm b/ext/Encode/lib/Encode/KR/2022_KR.pm
index c71f0e4..f668b56 100644 (file)
--- a/ext/Encode/lib/Encode/KR/2022_KR.pm
+++ b/ext/Encode/lib/Encode/KR/2022_KR.pm
@@ -13,6 +13,8 @@ $obj->Define($canon);
 
 sub name { return $_[0]->{name}; }
 
+sub needs_lines { 1 }
+
 sub decode
 {
     my ($obj,$str,$chk) = @_;
@@ -35,14 +37,14 @@ use Encode::CJKConstants qw(:all);
 
 sub iso_euc{
     my $r_str = shift;
-    $$r_str =~ s/$RE{'2022_KR'}//gox;  # remove the designator 
+    $$r_str =~ s/$RE{'2022_KR'}//gox;  # remove the designator
     $$r_str =~ s{                    # replace chars. in GL
      \x0e                            # between SO(\x0e) and SI(\x0f)
      ([^\x0f]*)                      # with chars. in GR
      \x0f
        }
     {
-                       my $out= $1; 
+                       my $out= $1;
       $out =~ tr/\x21-\x7e/\xa1-\xfe/;
       $out;
     }geox;
@@ -51,7 +53,7 @@ sub iso_euc{
 
 sub euc_iso{
     my $r_str = shift;
-    substr($$r_str,0,0)=$ESC{'2022_KR'};  # put the designator at the beg. 
+    substr($$r_str,0,0)=$ESC{'2022_KR'};  # put the designator at the beg.
     $$r_str =~ s{                     # move KS X 1001 chars. in GR to GL
        ($RE{EUC_C}+)                       # and enclose them with SO and SI
        }{