From: Dan Kogai Date: Thu, 20 Feb 2003 23:49:55 +0000 (+0900) Subject: [Encode] 1.88 Released X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cc7dbc11d7cd9ed68bb2fbc677f60586de194a05;p=p5sagit%2Fp5-mst-13.2.git [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 --- a/ext/Encode/AUTHORS +++ b/ext/Encode/AUTHORS @@ -40,3 +40,4 @@ SUZUKI Norio Spider Boardman Tatsuhiko Miyagawa Vadim Konovalov +Yitzchak Scott-Thoennes diff --git a/ext/Encode/Changes b/ext/Encode/Changes index f327441..3900502 100644 --- 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: +! 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 { }; # 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 --- 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 { }; # 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 --- 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 "viscii" 1 @@ -143,6 +143,7 @@ CHARMAP \x83 |0 # LATIN CAPITAL LETTER A WITH BREVE AND DOT BELOW \x84 |0 # LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND ACUTE \x85 |0 # LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND GRAVE + \x86 |0 # LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE \x87 |0 # LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND DOT BELOW \x88 |0 # LATIN CAPITAL LETTER E WITH TILDE \x89 |0 # LATIN CAPITAL LETTER E WITH DOT BELOW @@ -174,7 +175,7 @@ CHARMAP \xA3 |0 # LATIN SMALL LETTER A WITH BREVE AND DOT BELOW \xA4 |0 # LATIN SMALL LETTER A WITH CIRCUMFLEX AND ACUTE \xA5 |0 # LATIN SMALL LETTER A WITH CIRCUMFLEX AND GRAVE - \xA6 |0 # LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE + \xA6 |0 # LATIN SMALL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE \xA7 |0 # LATIN SMALL LETTER A WITH CIRCUMFLEX AND DOT BELOW \xA8 |0 # LATIN SMALL LETTER E WITH TILDE \xA9 |0 # LATIN SMALL LETTER E WITH DOT BELOW