/[suikacvs]/perl/lib/Encode/Unicode/UTF1.pm
Suika

Diff of /perl/lib/Encode/Unicode/UTF1.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by wakaba, Sun Jul 21 05:49:51 2002 UTC revision 1.2 by wakaba, Thu Jul 25 11:24:36 2002 UTC
# Line 4  use strict; Line 4  use strict;
4  use vars qw(%DEFAULT $VERSION);  use vars qw(%DEFAULT $VERSION);
5  $VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};  $VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
6  use base qw(Encode::Encoding);  use base qw(Encode::Encoding);
7  __PACKAGE__->Define (qw/utf-1 utf1 ISO-10646-UTF-1 csISO10646UTF1 iso-ir-178/);  __PACKAGE__->Define (qw/ISO-10646-UTF-1 utf-1 utf1 csISO10646UTF1 iso-ir-178/);
8    
9  sub encode ($$;$) {  sub encode ($$;$) {
10    my ($obj, $str, $chk) = @_;    my ($obj, $str, $chk) = @_;
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24