package Encode::KR::2022_KR;
use strict;
-our $VERSION = do { my @r = (q$Revision: 1.5 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 2.0 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
use Encode qw(:fallbacks);
my ($obj, $utf8, $chk) = @_;
# empty the input string in the stack so perlio is ok
$_[1] = '' if $chk;
- my $octet = Encode::encode('euc-jp', $utf8, FB_PERLQQ) ;
+ my $octet = Encode::encode('euc-kr', $utf8, FB_PERLQQ) ;
euc_iso(\$octet);
return $octet;
}