From: Dan Kogai Date: Tue, 21 May 2002 01:06:19 +0000 (+0900) Subject: [Encode] 1.72 released X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f74b3917e5e345d8028ca3d99404011fa7c63158;hp=53783487bb15c46b58182a4a1b824fa286ec26cb;p=p5sagit%2Fp5-mst-13.2.git [Encode] 1.72 released Message-Id: <85BA0AD1-6C0B-11D6-90A1-0003939A104C@dan.co.jp> p4raw-id: //depot/perl@16715 --- diff --git a/ext/Encode/AUTHORS b/ext/Encode/AUTHORS index 0c7dda8..ac65486 100644 --- a/ext/Encode/AUTHORS +++ b/ext/Encode/AUTHORS @@ -34,3 +34,4 @@ Robin Barker SADAHIRO Tomoyuki Spider Boardman Tatsuhiko Miyagawa +Vadim Konovalov diff --git a/ext/Encode/Changes b/ext/Encode/Changes index 1deb788..5ab37a9 100644 --- a/ext/Encode/Changes +++ b/ext/Encode/Changes @@ -1,9 +1,32 @@ # Revision history for Perl extension Encode. # -# $Id: Changes,v 1.71 2002/05/07 16:22:42 dankogai Exp dankogai $ +# $Id: Changes,v 1.72 2002/05/20 15:49:56 dankogai Exp dankogai $ # -$Revision: 1.71 $ $Date: 2002/05/07 16:22:42 $ +$Revision: 1.72 $ $Date: 2002/05/20 15:49:56 $ +! Makefile.PL + Subject: [PATCH] Encode should be in perl-core library path + Message-Id: <86r8k7h738.wl@mail.edge.co.jp> + Message-Id: <20020520161201.A11019@alpha.hut.fi> +! lib/Encode/MIME/Header.pm + Subject: [PATCH] Encode::MIME::Header + Message-Id: <86sn4nh7a8.wl@mail.edge.co.jp> +! Encode/Makefile_PL.e2x + Subject: [PATCH] Make Makefile_PL.e2x happy on MSWin32 + Message-Id: <20020519201031.GA1603@not.autrijus.org> +! CN/Makefile.PL Byte/Makefile.PL JP/Makefile.PL TW/Makefile.PL + Symbol/Makefile.PL KR/Makefile.PL EBCDIC/Makefile.PL Makefile.PL + AUTHORS + @16628 and @16652 from Vadim. Vadim was added to AUTHORS. + Subject: [PATCH] good day for WinCE port of perl. + Message-ID: <001301c1fc68$e808e560$a95cc3d9@vad> +! Encode.xs +! Unicode/Unicode.xs + Even more linting by Robin via @16532 +! Encode.xs + Even more typecast by Sarathy in @16460 + +1.71 2002/05/07 16:22:42 ! Encode.xs even more typecasts by Robin Message-Id: <200205071513.QAA05846@tempest.npl.co.uk> @@ -11,7 +34,7 @@ $Revision: 1.71 $ $Date: 2002/05/07 16:22:42 $ A very strange bug that was causing a bugus ucm -> C table generation that was revealed by a UCM file that Andreas was working. This is the king of wierdest bug I've encountered - in the course of Encode maintainance. + in the course of Encode maintenance. Message-Id: <6C04F0FA-61D4-11D6-B164-00039301D480@dan.co.jp> 1.70 2002/05/06 10:26:48 @@ -629,7 +652,7 @@ $Revision: 1.71 $ $Date: 2002/05/07 16:22:42 $ Typo fixes and improvements by jhi Message-Id: <200204010201.FAA03564@alpha.hut.fi>, et al. -1.11 $Date: 2002/05/07 16:22:42 $ +1.11 $Date: 2002/05/20 15:49:56 $ + t/encoding.t + t/jperl.t ! MANIFEST @@ -1105,5 +1128,3 @@ $Revision: 1.71 $ $Date: 2002/05/07 16:22:42 $ Autrijus, you may fix Encode::HanExtra. + t/CJKalias.t + to test encode aliases added - - LocalWords: maintainance diff --git a/ext/Encode/Encode.pm b/ext/Encode/Encode.pm index 726f24c..cfcaacc 100644 --- a/ext/Encode/Encode.pm +++ b/ext/Encode/Encode.pm @@ -1,9 +1,9 @@ # -# $Id: Encode.pm,v 1.71 2002/05/07 16:23:08 dankogai Exp dankogai $ +# $Id: Encode.pm,v 1.72 2002/05/20 15:26:18 dankogai Exp $ # package Encode; use strict; -our $VERSION = do { my @r = (q$Revision: 1.71 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +our $VERSION = do { my @r = (q$Revision: 1.72 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; our $DEBUG = 0; use XSLoader (); XSLoader::load(__PACKAGE__, $VERSION); diff --git a/ext/Encode/Encode.xs b/ext/Encode/Encode.xs index 6e24039..ff582d0 100644 --- a/ext/Encode/Encode.xs +++ b/ext/Encode/Encode.xs @@ -1,5 +1,5 @@ /* - $Id: Encode.xs,v 1.45 2002/05/07 16:22:42 dankogai Exp dankogai $ + $Id: Encode.xs,v 1.46 2002/05/20 15:25:44 dankogai Exp $ */ #define PERL_NO_GET_CONTEXT diff --git a/ext/Encode/Makefile.PL b/ext/Encode/Makefile.PL index c442095..9a18224 100644 --- a/ext/Encode/Makefile.PL +++ b/ext/Encode/Makefile.PL @@ -42,6 +42,7 @@ WriteMakefile( MAN3PODS => {}, INC => "-I./Encode", PMLIBDIRS => \@pmlibdirs, + INSTALLDIRS => 'perl', ); package MY; diff --git a/ext/Encode/Unicode/Unicode.xs b/ext/Encode/Unicode/Unicode.xs index a330ea0..7c79d4a 100644 --- a/ext/Encode/Unicode/Unicode.xs +++ b/ext/Encode/Unicode/Unicode.xs @@ -1,5 +1,5 @@ /* - $Id: Unicode.xs,v 1.4 2002/04/26 03:02:04 dankogai Exp $ + $Id: Unicode.xs,v 1.5 2002/05/20 15:25:44 dankogai Exp $ */ #define PERL_NO_GET_CONTEXT diff --git a/ext/Encode/lib/Encode/MIME/Header.pm b/ext/Encode/lib/Encode/MIME/Header.pm index 09dd55e..2844db3 100644 --- a/ext/Encode/lib/Encode/MIME/Header.pm +++ b/ext/Encode/lib/Encode/MIME/Header.pm @@ -1,7 +1,7 @@ package Encode::MIME::Header; use strict; # use warnings; -our $VERSION = do { my @r = (q$Revision: 1.4 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +our $VERSION = do { my @r = (q$Revision: 1.5 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; use Encode qw(find_encoding encode_utf8); use MIME::Base64; @@ -51,7 +51,7 @@ sub decode($$;$){ $str =~ s{ =\? # begin encoded word - ([0-9A-Za-z\-]+) # charset (encoding) + ([0-9A-Za-z\-_]+) # charset (encoding) \?([QqBb])\? # delimiter (.*?) # Base64-encodede contents \?= # end encoded word diff --git a/ext/Encode/t/perlio.t b/ext/Encode/t/perlio.t index e210b2f..9966ef8 100644 --- a/ext/Encode/t/perlio.t +++ b/ext/Encode/t/perlio.t @@ -54,6 +54,7 @@ my %e = gb2312 => [ qw/euc-cn/], ); +$/ = "\x0a"; # may fix VMS problem for test #28 and #29 for my $src(sort keys %e) { my $ufile = File::Spec->catfile($dir,"$src.utf");