From: Jarkko Hietaniemi Date: Sun, 9 Mar 2003 19:32:19 +0000 (+0000) Subject: Upgrade to Encode 1.91. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0f29a5678147e1d4f721d3b5069c7527c5801d73;p=p5sagit%2Fp5-mst-13.2.git Upgrade to Encode 1.91. p4raw-id: //depot/perl@18869 --- diff --git a/ext/Encode/AUTHORS b/ext/Encode/AUTHORS index 71879fe..6489b4a 100644 --- a/ext/Encode/AUTHORS +++ b/ext/Encode/AUTHORS @@ -22,7 +22,7 @@ Graham Barr Gurusamy Sarathy H.Merijn Brand Hugo van der Sanden -Inaba HIroto +Inaba Hiroto Jarkko Hietaniemi Jungshik Shin Laszlo Molnar diff --git a/ext/Encode/Changes b/ext/Encode/Changes index 26b3075..11cb79f 100644 --- 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 --- 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 --- 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 pragma, you can write your script in any encoding you like (so long as the C 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. However, the pragma is supported and B 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 --- 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;