/[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.2 by wakaba, Thu Jul 25 11:24:36 2002 UTC revision 1.3 by wakaba, Fri Aug 16 12:09:21 2002 UTC
# Line 1  Line 1 
1  require 5.8.0;  require 5.7.3;
2  package Encode::Unicode::UTF1;  package Encode::Unicode::UTF1;
3  use strict;  use strict;
4  use vars qw(%DEFAULT $VERSION);  use vars qw($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/ISO-10646-UTF-1 utf-1 utf1 csISO10646UTF1 iso-ir-178/);  __PACKAGE__->Define (qw/ISO-10646-UTF-1 utf-1 utf1 csISO10646UTF1 iso-ir-178/);
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24