Upgrade to Encode 1.91.

p4raw-id: //depot/perl@18869

diff --git a/ext/Encode/AUTHORS b/ext/Encode/AUTHORS
index 71879fe..6489b4a 100644 (file)
--- a/ext/Encode/AUTHORS
+++ b/ext/Encode/AUTHORS
@@ -22,7 +22,7 @@ Graham Barr                     <gbarr@pobox.com>
 Gurusamy Sarathy               <gsar@activestate.com>
 H.Merijn Brand                  <h.m.brand@hccnet.nl>
 Hugo van der Sanden            <hv@crypt.org>
-Inaba HIroto                    <inaba@st.rim.or.jp>
+Inaba Hiroto                   <inaba@st.rim.or.jp>
 Jarkko Hietaniemi              <jhi@iki.fi>
 Jungshik Shin                   <jshin@mailaps.org>
 Laszlo Molnar                  <ml1050@freemail.hu>

diff --git a/ext/Encode/Changes b/ext/Encode/Changes
index 26b3075..11cb79f 100644 (file)
--- a/ext/Encode/Changes
+++ b/ext/Encode/Changes
@@ -1,8 +1,23 @@
 # Revision history for Perl extension Encode.
 #
-# $Id: Changes,v 1.90 2003/03/09 17:32:43 dankogai Exp $
+# $Id: Changes,v 1.91 2003/03/09 20:07:37 dankogai Exp dankogai $
 #
-$Revision: 1.90 $ $Date: 2003/03/09 17:32:43 $
+$Revision: 1.91 $ $Date: 2003/03/09 20:07:37 $
+! encoding.pm
+  even more proofread by jhi.
+  Message-Id: <20030309194323.GT20843@kosh.hut.fi>
+! t/enc_module.t
+  -use lib 't';
+  +use lib qw(t ext/Encode/t ../ext/Encode/t);
+  Message-Id: <20030309182057.GR20843@kosh.hut.fi>
+! AUTHORS
+  s/Hirohito/Hiroto/ig;  Sorry, Hiroto-san.
+  Message-Id: <20030309181748.GP20843@kosh.hut.fi>
+! encoding.pm
+  s/logner/longer/
+  Message-Id: <20030309181907.GQ20843@kosh.hut.fi>
+
+1.90 2003/03/09 17:32:43
 ! encoding.pm
 + t/enc_data.t
   Inaba-san has added a patch for perl 5.8.1 or later that makes

diff --git a/ext/Encode/Encode.pm b/ext/Encode/Encode.pm
index d246dac..c5e303d 100644 (file)
--- a/ext/Encode/Encode.pm
+++ b/ext/Encode/Encode.pm
@@ -1,9 +1,9 @@
 #
-# $Id: Encode.pm,v 1.90 2003/03/09 17:32:18 dankogai Exp $
+# $Id: Encode.pm,v 1.91 2003/03/09 20:07:20 dankogai Exp $
 #
 package Encode;
 use strict;
-our $VERSION = do { my @r = (q$Revision: 1.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 1.91 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 our $DEBUG = 0;
 use XSLoader ();
 XSLoader::load(__PACKAGE__, $VERSION);

diff --git a/ext/Encode/encoding.pm b/ext/Encode/encoding.pm
index 086a8bd..d655742 100644 (file)
--- a/ext/Encode/encoding.pm
+++ b/ext/Encode/encoding.pm
@@ -1,6 +1,6 @@
-# $Id: encoding.pm,v 1.43 2003/03/09 17:32:43 dankogai Exp $
+# $Id: encoding.pm,v 1.44 2003/03/09 20:07:37 dankogai Exp dankogai $
 package encoding;
-our $VERSION = do { my @r = (q$Revision: 1.43 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 1.44 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 use Encode;
 use strict;
@@ -146,7 +146,7 @@ new feature of Perl 5.6.
 Rewind to the future: starting from perl 5.8.0 with the B<encoding>
 pragma, you can write your script in any encoding you like (so long
 as the C<Encode> module supports it) and still enjoy Unicode support.
-This pragma achieves that by doing the followings;
+This pragma achieves that by doing the following:
 
 =over
 
@@ -196,17 +196,17 @@ You can override this by giving extra arguments; see below.
 =head1 FEATURES THAT REQUIRE 5.8.1
 
 Some of the features offered by this pragma requires perl 5.8.1.  Most
-of these works are by Inaba Hirohito.  Any other features and changes
+of these are done by Inaba Hiroto.  Any other features and changes
 are good for 5.8.0.
 
 =over
 
 =item "NON-EUC" doublebyte encodings
 
-Because perl needs to parse script before applying this pragma, Such
+Because perl needs to parse script before applying this pragma, such
 encodings as Shift_JIS and Big-5 that may contain '\' (BACKSLASH;
 \x5c) in the second byte fails because the second byte may
-accidentally escapes the quoting character that follows.  Perl 5.8.1
+accidentally escape the quoting character that follows.  Perl 5.8.1
 or later fixes this problem.
 
 =item tr// 
@@ -309,9 +309,9 @@ B<the whole script>.  However, the <no encoding> pragma is supported and
 B<use encoding> can appear as many times as you want in a given script. 
 The multiple use of this pragma is discouraged.
 
-Because of this nature -- the influence of this pragma lasts not only
-for the module but the script that uses the use of this pragma inside
---, it is not recommended that you use this pragma inside modules.
+By the same reason, the use this pragma inside modules is also
+discouraged (though not as strongly discouranged as the case above.  
+See below).
 
 If you still have to write a module with this pragma, be very careful
 of the load order.  See the codes below;
@@ -451,7 +451,7 @@ Porters so it has been fixed in Perl 5.8.1 or later.
 
 =over
 
-=item literals in regex that are logner than 127 bytes
+=item literals in regex that are longer than 127 bytes
 
 For native multibyte encodings (either fixed or variable length),
 the current implementation of the regular expressions may introduce

diff --git a/ext/Encode/t/enc_module.t b/ext/Encode/t/enc_module.t
index 0ac159a..21312bb 100644 (file)
--- a/ext/Encode/t/enc_module.t
+++ b/ext/Encode/t/enc_module.t
@@ -1,4 +1,4 @@
-# $Id: enc_module.t,v 1.2 2003/03/09 17:32:43 dankogai Exp $
+# $Id: enc_module.t,v 1.3 2003/03/09 20:07:37 dankogai Exp dankogai $
 # This file is in euc-jp
 BEGIN {
     require Config; import Config;
@@ -19,8 +19,7 @@ BEGIN {
        exit(0);
     }
 }
-use lib 't';
-use lib qw(ext/Encode/t ../ext/Encode/t); # in case of perl core
+use lib qw(t ext/Encode/t ../ext/Encode/t); # latter 2 for perl core
 use Mod_EUCJP;
 use encoding "euc-jp";
 use Test::More tests => 3;