[Encode] 1.88 Released

Message-Id: <935F75D0-44E2-11D7-B310-000393AE4244@dan.co.jp>

p4raw-id: //depot/perl@18773

diff --git a/ext/Encode/AUTHORS b/ext/Encode/AUTHORS
index 3f20c7e..4e3035c 100644 (file)
--- a/ext/Encode/AUTHORS
+++ b/ext/Encode/AUTHORS
@@ -40,3 +40,4 @@ SUZUKI Norio                    <ZAP00217@nifty.com>
 Spider Boardman                        <spider@web.zk3.dec.com>
 Tatsuhiko Miyagawa             <miyagawa@edge.co.jp>
 Vadim Konovalov                        <vkonovalov@peterstar.ru>
+Yitzchak Scott-Thoennes                <sthoenna@efn.org>

diff --git a/ext/Encode/Changes b/ext/Encode/Changes
index f327441..3900502 100644 (file)
--- a/ext/Encode/Changes
+++ b/ext/Encode/Changes
@@ -1,9 +1,27 @@
 # Revision history for Perl extension Encode.
 #
-# $Id: Changes,v 1.87 2003/02/06 01:52:11 dankogai Exp dankogai $
+# $Id: Changes,v 1.88 2003/02/20 14:42:34 dankogai Exp dankogai $
 #
+$Revision: 1.88 $ $Date: 2003/02/20 14:42:34 $
+! Encode.xs
+  one signedness nit for Encode by jhi
+  <200302161933.h1GJX876018710@kosh.hut.fi>
+! ucm/viscii.ucm
+  VISCII map was incorrect; fixed by Sadahiro-san
+  Message-Id: <20030216120828.47D3.BQW10602@nifty.com>
+! t/enc_eucjp.t t/enc_utf8.t AUTHORS
+  You can't unlink files that are opened in cygwin but the last
+  file handle opened in t/enc_*.t left open.  Patch submitted
+  by Yitzchak and he was added to AUTHORS.
+  Message-Id: <iN0Q+gzkgmZN092yn@efn.org>
+! t/CJKT.t
+  now works with 'LC_ALL=en_US.UTF-8 PERL_UTF8_LOCALE=1'
+  Message-Id: <20030206104513.GA11081@kosh.hut.fi>  
+! Unicode/Unicode.xs
+  For 1.88: Unicode.xs =~ s/regog/recog/ -- jhi
+  Message-Id: <20030206045153.GA6826@kosh.hut.fi>
 
-$Revision: 1.87 $ $Date: 2003/02/06 01:52:11 $
+1.87 2003/02/06 01:52:11
 ! AUTHORS
   * Inaba "Sensei" Hirohito added (I thought I have done so a long 
   ago but apparently I did not).

diff --git a/ext/Encode/Encode.pm b/ext/Encode/Encode.pm
index f123bab..ad1a27d 100644 (file)
--- a/ext/Encode/Encode.pm
+++ b/ext/Encode/Encode.pm
@@ -1,9 +1,9 @@
 #
-# $Id: Encode.pm,v 1.87 2003/02/06 01:52:11 dankogai Exp dankogai $
+# $Id: Encode.pm,v 1.88 2003/02/20 14:36:25 dankogai Exp $
 #
 package Encode;
 use strict;
-our $VERSION = do { my @r = (q$Revision: 1.87 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 1.88 $ =~ /\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 0462a5d..1c0de8c 100644 (file)
--- a/ext/Encode/Encode.xs
+++ b/ext/Encode/Encode.xs
@@ -1,5 +1,5 @@
 /*
- $Id: Encode.xs,v 1.53 2003/02/06 01:52:11 dankogai Exp dankogai $
+ $Id: Encode.xs,v 1.54 2003/02/20 14:42:34 dankogai Exp dankogai $
  */
 
 #define PERL_NO_GET_CONTEXT
@@ -74,7 +74,7 @@ encode_method(pTHX_ encode_t * enc, encpage_t * dir, SV * src,
     STRLEN dlen = SvLEN(dst)-1;
     int code = 0;
     STRLEN trmlen = 0;
-    U8 *trm = term ? SvPV(term, trmlen) : NULL;
+    U8 *trm = term ? (U8*) SvPV(term, trmlen) : NULL;
 
     if (offset) {
       s += *offset;

diff --git a/ext/Encode/Unicode/Unicode.xs b/ext/Encode/Unicode/Unicode.xs
index 56e1bd1..d0bedc5 100644 (file)
--- a/ext/Encode/Unicode/Unicode.xs
+++ b/ext/Encode/Unicode/Unicode.xs
@@ -1,5 +1,5 @@
 /*
- $Id: Unicode.xs,v 1.6 2003/01/10 12:00:16 dankogai Exp $
+ $Id: Unicode.xs,v 1.7 2003/02/20 14:42:34 dankogai Exp dankogai $
  */
 
 #define PERL_NO_GET_CONTEXT

diff --git a/ext/Encode/lib/Encode/CJKConstants.pm b/ext/Encode/lib/Encode/CJKConstants.pm
index e90e854..73e83b0 100644 (file)
--- a/ext/Encode/lib/Encode/CJKConstants.pm
+++ b/ext/Encode/lib/Encode/CJKConstants.pm
@@ -1,12 +1,12 @@
 #
-# $Id: CJKConstants.pm,v 1.1 2003/02/06 01:52:11 dankogai Exp dankogai $
+# $Id: CJKConstants.pm,v 1.1 2003/02/06 01:52:11 dankogai Exp $
 #
 
 package Encode::CJKConstants;
 
 use strict;
 
-our $RCSID = q$Id: CJKConstants.pm,v 1.1 2003/02/06 01:52:11 dankogai Exp dankogai $;
+our $RCSID = q$Id: CJKConstants.pm,v 1.1 2003/02/06 01:52:11 dankogai Exp $;
 our $VERSION = do { my @r = (q$Revision: 1.1 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 use Carp;

diff --git a/ext/Encode/lib/Encode/Encoder.pm b/ext/Encode/lib/Encode/Encoder.pm
index 8f65bdb..5f2451b 100644 (file)
--- a/ext/Encode/lib/Encode/Encoder.pm
+++ b/ext/Encode/lib/Encode/Encoder.pm
@@ -1,5 +1,5 @@
 #
-# $Id: Encoder.pm,v 0.6 2003/02/06 01:52:11 dankogai Exp dankogai $
+# $Id: Encoder.pm,v 0.6 2003/02/06 01:52:11 dankogai Exp $
 #
 package Encode::Encoder;
 use strict;

diff --git a/ext/Encode/t/enc_eucjp.t b/ext/Encode/t/enc_eucjp.t
index 4929d7e..151bd9a 100644 (file)
--- a/ext/Encode/t/enc_eucjp.t
+++ b/ext/Encode/t/enc_eucjp.t
@@ -1,6 +1,5 @@
-# $Id: enc_eucjp.t,v 1.2 2003/02/06 01:52:11 dankogai Exp dankogai $
-# This is the twin of enc_utf8.t, the only difference is that
-# this has "use encoding 'euc-jp'".
+# $Id: enc_eucjp.t,v 1.3 2003/02/20 14:42:34 dankogai Exp dankogai $
+# This is the twin of enc_utf8.t .
 
 BEGIN {
     require Config; import Config;
@@ -64,6 +63,7 @@ binmode(F, ":encoding(utf-8)");
        local $SIG{__WARN__} = sub { $a = shift };
        eval { <F> }; # This should get caught.
 }
+close F;
 print $a =~ qr{^utf8 "\\x80" does not map to Unicode} ?
   "ok $t - illegal utf8 input\n" : "not ok $t - illegal utf8 input: a = " . unpack("H*", $a) . "\n";
 

diff --git a/ext/Encode/t/enc_utf8.t b/ext/Encode/t/enc_utf8.t
index cce63e3..5da3047 100644 (file)
--- a/ext/Encode/t/enc_utf8.t
+++ b/ext/Encode/t/enc_utf8.t
@@ -1,12 +1,7 @@
-# $Id: enc_utf8.t,v 1.2 2003/01/22 03:29:07 dankogai Exp $
-# This is the twin of enc_eucjp.t, the only difference is that
-# this has "use encoding 'utf8'".
+# $Id: enc_utf8.t,v 1.3 2003/02/20 14:42:34 dankogai Exp dankogai $
+# This is the twin of enc_eucjp.t .
 
 BEGIN {
-#     if ($] <= 5.008){
-#      print "1..0 # Skip: Perl 5.8.1 or later required\n";
-#      exit 0;
-#     }
     require Config; import Config;
     if ($Config{'extensions'} !~ /\bEncode\b/) {
       print "1..0 # Skip: Encode was not built\n";
@@ -63,6 +58,7 @@ binmode(F, ":encoding(utf-8)");
        local $SIG{__WARN__} = sub { $a = shift };
        eval { <F> }; # This should get caught.
 }
+close F;
 print $a =~ qr{^utf8 "\\x80" does not map to Unicode} ?
   "ok $t - illegal utf8 input\n" : "not ok $t - illegal utf8 input: a = " . unpack("H*", $a) . "\n";
 

diff --git a/ext/Encode/ucm/viscii.ucm b/ext/Encode/ucm/viscii.ucm
index 0f02f01..d73fbf2 100644 (file)
--- a/ext/Encode/ucm/viscii.ucm
+++ b/ext/Encode/ucm/viscii.ucm
@@ -1,7 +1,7 @@
 #
-# $Id: viscii.ucm,v 1.0 2002/03/28 23:26:28 dankogai Exp $
+# $Id: viscii.ucm,v 1.1 2003/02/20 14:42:34 dankogai Exp dankogai $
 #
-# Written $Id: viscii.ucm,v 1.0 2002/03/28 23:26:28 dankogai Exp $
+# Written $Id: viscii.ucm,v 1.1 2003/02/20 14:42:34 dankogai Exp dankogai $
 # ./compile -n viscii -o Encode/viscii.ucm Encode/viscii.enc
 <code_set_name> "viscii"
 <mb_cur_min> 1
@@ -143,6 +143,7 @@ CHARMAP
 <U1EB6> \x83 |0 # LATIN CAPITAL LETTER A WITH BREVE AND DOT BELOW
 <U1EA4> \x84 |0 # LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND ACUTE
 <U1EA6> \x85 |0 # LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND GRAVE
+<U1EA8> \x86 |0 # LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE
 <U1EAC> \x87 |0 # LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND DOT BELOW
 <U1EBC> \x88 |0 # LATIN CAPITAL LETTER E WITH TILDE
 <U1EB8> \x89 |0 # LATIN CAPITAL LETTER E WITH DOT BELOW
@@ -174,7 +175,7 @@ CHARMAP
 <U1EB7> \xA3 |0 # LATIN SMALL LETTER A WITH BREVE AND DOT BELOW
 <U1EA5> \xA4 |0 # LATIN SMALL LETTER A WITH CIRCUMFLEX AND ACUTE
 <U1EA7> \xA5 |0 # LATIN SMALL LETTER A WITH CIRCUMFLEX AND GRAVE
-<U1EA8> \xA6 |0 # LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE
+<U1EA9> \xA6 |0 # LATIN SMALL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE
 <U1EAD> \xA7 |0 # LATIN SMALL LETTER A WITH CIRCUMFLEX AND DOT BELOW
 <U1EBD> \xA8 |0 # LATIN SMALL LETTER E WITH TILDE
 <U1EB9> \xA9 |0 # LATIN SMALL LETTER E WITH DOT BELOW