Change 18869 by [EMAIL PROTECTED] on 2003/03/09 19:32:19
Upgrade to Encode 1.91.
Affected files ...
... //depot/perl/ext/Encode/AUTHORS#24 edit
... //depot/perl/ext/Encode/Changes#51 edit
... //depot/perl/ext/Encode/Encode.pm#131 edit
... //depot/perl/ext/Encode/encoding.pm#22 edit
... //depot/perl/ext/Encode/t/enc_module.t#3 edit
Differences ...
==== //depot/perl/ext/Encode/AUTHORS#24 (text) ====
Index: perl/ext/Encode/AUTHORS
--- perl/ext/Encode/AUTHORS#23~18816~ Sun Mar 2 22:17:28 2003
+++ perl/ext/Encode/AUTHORS Sun Mar 9 11:32:19 2003
@@ -22,7 +22,7 @@
Gurusamy Sarathy <[EMAIL PROTECTED]>
H.Merijn Brand <[EMAIL PROTECTED]>
Hugo van der Sanden <[EMAIL PROTECTED]>
-Inaba HIroto <[EMAIL PROTECTED]>
+Inaba Hiroto <[EMAIL PROTECTED]>
Jarkko Hietaniemi <[EMAIL PROTECTED]>
Jungshik Shin <[EMAIL PROTECTED]>
Laszlo Molnar <[EMAIL PROTECTED]>
==== //depot/perl/ext/Encode/Changes#51 (text) ====
Index: perl/ext/Encode/Changes
--- perl/ext/Encode/Changes#50~18867~ Sun Mar 9 09:12:55 2003
+++ perl/ext/Encode/Changes Sun Mar 9 11:32:19 2003
@@ -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: <[EMAIL PROTECTED]>
+! t/enc_module.t
+ -use lib 't';
+ +use lib qw(t ext/Encode/t ../ext/Encode/t);
+ Message-Id: <[EMAIL PROTECTED]>
+! AUTHORS
+ s/Hirohito/Hiroto/ig; Sorry, Hiroto-san.
+ Message-Id: <[EMAIL PROTECTED]>
+! encoding.pm
+ s/logner/longer/
+ Message-Id: <[EMAIL PROTECTED]>
+
+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
==== //depot/perl/ext/Encode/Encode.pm#131 (text) ====
Index: perl/ext/Encode/Encode.pm
--- perl/ext/Encode/Encode.pm#130~18867~ Sun Mar 9 09:12:55 2003
+++ perl/ext/Encode/Encode.pm Sun Mar 9 11:32:19 2003
@@ -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);
==== //depot/perl/ext/Encode/encoding.pm#22 (text) ====
Index: perl/ext/Encode/encoding.pm
--- perl/ext/Encode/encoding.pm#21~18867~ Sun Mar 9 09:12:55 2003
+++ perl/ext/Encode/encoding.pm Sun Mar 9 11:32:19 2003
@@ -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 @@
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 @@
=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<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 @@
=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
==== //depot/perl/ext/Encode/t/enc_module.t#3 (text) ====
Index: perl/ext/Encode/t/enc_module.t
--- perl/ext/Encode/t/enc_module.t#2~18867~ Sun Mar 9 09:12:55 2003
+++ perl/ext/Encode/t/enc_module.t Sun Mar 9 11:32:19 2003
@@ -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 @@
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;
End of Patch.
