/[pub]/test/oldencodeutils/lib/Encode/Unicode/UTF7.pm
Suika

Diff of /test/oldencodeutils/lib/Encode/Unicode/UTF7.pm

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

revision 1.1 by wakaba, Fri Aug 16 12:09:21 2002 UTC revision 1.3 by wakaba, Fri Sep 20 14:01:45 2002 UTC
# Line 5  use vars qw(%OPTION $VERSION); Line 5  use vars qw(%OPTION $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  require MIME::Base64;  require MIME::Base64;
8  __PACKAGE__->Define (qw/utf-7 utf7 unicode-2-0-utf-7 unicode-2-0-utf7 x-unicode-2-0-utf7 unicode-1-1-utf-7/);  __PACKAGE__->Define (qw/utf-7 utf7 unicode-2-0-utf-7 unicode-2-0-utf7 x-unicode-2-0-utf7 cp65000 unicode-1-1-utf-7 csunicode11utf7/);
9  ## BUG: Unicode-1-1-UTF-7 is actually not suitable.  (We need Unicode 1.1 support.)  ## BUG: Unicode-1-1-UTF-7 is actually not suitable.  (We need Unicode 1.1 support.)
10    
11  $OPTION{encode_o_set} = 1;  $OPTION{encode_o_set} = 1;
# Line 111  Encode::Unicode::UTF7 --- Encode/decode Line 111  Encode::Unicode::UTF7 --- Encode/decode
111    
112  =head1 LICENSE  =head1 LICENSE
113    
114  Copyright 2002 wakaba E<lt>w@suika.fam.cxE<gt>.  Copyright 2002 Wakaba E<lt>w@suika.fam.cxE<gt>.
115    
116  This program is free software; you can redistribute it and/or modify  This program is free software; you can redistribute it and/or modify
117  it under the terms of the GNU General Public License as published by  it under the terms of the GNU General Public License as published by
# Line 130  Boston, MA 02111-1307, USA. Line 130  Boston, MA 02111-1307, USA.
130    
131  =cut  =cut
132    
133  ## $Date$  # $Date$
134  ### UTF7.pm ends here  ### UTF7.pm ends here
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24