Upgrade to Encode 1.71.

p4raw-id: //depot/perl@16448

5 files changed, 22 insertions, 9 deletions

diff --git a/ext/Encode/Changes b/ext/Encode/Changes
index 5cd481047e..1deb7885b9 100644
--- a/ext/Encode/Changes
+++ b/ext/Encode/Changes
@@ -1,9 +1,20 @@
 # Revision history for Perl extension Encode.
 #
-# $Id: Changes,v 1.70 2002/05/06 10:26:48 dankogai Exp dankogai $
+# $Id: Changes,v 1.71 2002/05/07 16:22:42 dankogai Exp dankogai $
 #
 
-$Revision: 1.70 $ $Date: 2002/05/06 10:26:48 $
+$Revision: 1.71 $ $Date: 2002/05/07 16:22:42 $
+! Encode.xs
+  even more typecasts by Robin
+  Message-Id: <200205071513.QAA05846@tempest.npl.co.uk>
+! bin/enc2xs
+  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.
+  Message-Id: <6C04F0FA-61D4-11D6-B164-00039301D480@dan.co.jp>
+
+1.70 2002/05/06 10:26:48
 ! encoding.pm
   Made more 'module-safe' with conjunction w/ 'no encoding'.
   Message-Id: <EAB48C16-60DA-11D6-9982-00039301D480@dan.co.jp>
@@ -618,7 +629,7 @@ $Revision: 1.70 $ $Date: 2002/05/06 10:26:48 $
   Typo fixes and improvements by jhi
   Message-Id: <200204010201.FAA03564@alpha.hut.fi>, et al.
 
-1.11  $Date: 2002/05/06 10:26:48 $
+1.11  $Date: 2002/05/07 16:22:42 $
 + t/encoding.t
 + t/jperl.t
 ! MANIFEST
@@ -1094,3 +1105,5 @@ $Revision: 1.70 $ $Date: 2002/05/06 10:26:48 $
     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 20bee0c04c..726f24c0c4 100644
--- a/ext/Encode/Encode.pm
+++ b/ext/Encode/Encode.pm
@@ -1,9 +1,9 @@
 #
-# $Id: Encode.pm,v 1.70 2002/05/06 10:27:11 dankogai Exp dankogai $
+# $Id: Encode.pm,v 1.71 2002/05/07 16:23:08 dankogai Exp dankogai $
 #
 package Encode;
 use strict;
-our $VERSION = do { my @r = (q$Revision: 1.70 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 1.71 $ =~ /\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 28115bc74b..4e95671d8d 100644
--- a/ext/Encode/Encode.xs
+++ b/ext/Encode/Encode.xs
@@ -1,5 +1,5 @@
 /*
- $Id: Encode.xs,v 1.44 2002/05/02 07:33:09 dankogai Exp $
+ $Id: Encode.xs,v 1.45 2002/05/07 16:22:42 dankogai Exp dankogai $
  */
 
 #define PERL_NO_GET_CONTEXT
diff --git a/ext/Encode/bin/enc2xs b/ext/Encode/bin/enc2xs
index f2287d4675..a54663cfe5 100644
--- a/ext/Encode/bin/enc2xs
+++ b/ext/Encode/bin/enc2xs
@@ -8,7 +8,7 @@ BEGIN {
 use strict;
 use Getopt::Std;
 my @orig_ARGV = @ARGV;
-our $VERSION  = do { my @r = (q$Revision: 1.26 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION  = do { my @r = (q$Revision: 1.27 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 # These may get re-ordered.
 # RAW is a do_now as inserted by &enter
@@ -714,7 +714,7 @@ sub outtable
  foreach my $b (@{$a->{'Entries'}})
   {
    my ($sc,$ec,$out,$t,$end,$l,$fb) = @$b;
-   $end |= 0x80 if $fb;
+   # $end |= 0x80 if $fb; # what the heck was on your mind, Nick?  -- Dan
    print  $fh "{";
    if ($l)
     {
diff --git a/ext/Encode/t/Unicode.t b/ext/Encode/t/Unicode.t
index 798419791a..fb0ca1aad5 100644
--- a/ext/Encode/t/Unicode.t
+++ b/ext/Encode/t/Unicode.t
@@ -1,5 +1,5 @@
 #
-# $Id: Unicode.t,v 1.9 2002/05/06 10:26:48 dankogai Exp dankogai $
+# $Id: Unicode.t,v 1.9 2002/05/06 10:26:48 dankogai Exp $
 #
 # This script is written entirely in ASCII, even though quoted literals
 # do include non-BMP unicode characters -- Are you happy, jhi?