X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FEncode%2Flib%2FEncode%2FKR%2F2022_KR.pm;h=1bb584e3ca8d7a066c56e54dadca321cd0aa5d4d;hb=10c5ecbb45a6581439752935880506669f2d618c;hp=da3b84ce810248ff09fba270ea00bd3f953b0a58;hpb=011b2d2f95a2b6260e1a3409e652417bcc2b453d;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/Encode/lib/Encode/KR/2022_KR.pm b/ext/Encode/lib/Encode/KR/2022_KR.pm
index da3b84c..1bb584e 100644
--- a/ext/Encode/lib/Encode/KR/2022_KR.pm
+++ b/ext/Encode/lib/Encode/KR/2022_KR.pm
@@ -1,19 +1,14 @@
 package Encode::KR::2022_KR;
-use Encode qw(:fallbacks);
-use base 'Encode::Encoding';
-
 use strict;
 
-our $VERSION = do { my @r = (q$Revision: 1.4 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 1.5 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
+use Encode qw(:fallbacks);
 
-my $canon = 'iso-2022-kr';
-my $obj = bless {name => $canon}, __PACKAGE__;
-$obj->Define($canon);
-
-sub name { return $_[0]->{name}; }
+use base qw(Encode::Encoding);
+__PACKAGE__->Define('iso-2022-kr');
 
-sub needs_lines { 1 }
+sub needs_lines  { 1 }
 
 sub perlio_ok { 
     return 0; # for the time being