[Encode] 1.72 released

Message-Id: <85BA0AD1-6C0B-11D6-90A1-0003939A104C@dan.co.jp>

p4raw-id: //depot/perl@16715

8 files changed, 36 insertions, 12 deletions

diff --git a/ext/Encode/AUTHORS b/ext/Encode/AUTHORS
index 0c7dda8e48..ac65486e1f 100644
--- a/ext/Encode/AUTHORS
+++ b/ext/Encode/AUTHORS
@@ -34,3 +34,4 @@ Robin Barker                    <rmb1@cise.npl.co.uk>
 SADAHIRO Tomoyuki		<SADAHIRO@cpan.org>
 Spider Boardman			<spider@web.zk3.dec.com>
 Tatsuhiko Miyagawa		<miyagawa@edge.co.jp>
+Vadim Konovalov			<vkonovalov@peterstar.ru>
diff --git a/ext/Encode/Changes b/ext/Encode/Changes
index 1deb7885b9..5ab37a92ba 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 726f24c0c4..cfcaacccd4 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 6e24039ce8..ff582d06f1 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 c442095cee..9a1822417d 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 a330ea07f5..7c79d4a8eb 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 09dd55e0db..2844db346f 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 e210b2f637..9966ef8afe 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");