# Revision history for Perl extension Encode.
#
-# $Id: Changes,v 1.98 2003/08/20 11:15:31 dankogai Exp dankogai $
+# $Id: Changes,v 1.99 2003/12/29 02:47:16 dankogai Exp dankogai $
#
-$Revision: 1.98 $ $Date: 2003/08/20 11:15:31 $
+
+$Revision: 1.99 $ $Date: 2003/12/29 02:47:16 $
+! Unicode/Unicode.xs
+ find_encoding("UTF-16BE")->encode("abc") now null terminates
+ http://www.mail-archive.com/perl5-porters@perl.org/msg69766.html
+! Encode.pm
+ prototype bug in decode_utf8() fixed
+ Message-Id: <600A4CDA-F004-11D7-B570-000393AE4244@dan.co.jp>
+! Encode.pm /MANIFEST encoding.pm lib/Encode/Supported.pod
+ t/at-cn.t t/at-tw.t t/gsm0338.t ucm/gsm0338.ucm
++ t/gsm0338.t
+ Merged from maintperl@21987
+
+1.98 2003/08/20 11:15:31
! lib/Encode/MIME/Header.pm AUTHORS t/mime-header.t
Dave Evans has found and corrected a bug in Encode::MIME::Header.
Test suite added by Dan Kogai.
#
-# $Id: Encode.pm,v 1.98 2003/08/20 11:16:34 dankogai Exp dankogai $
+# $Id: Encode.pm,v 1.99 2003/12/29 02:47:16 dankogai Exp dankogai $
#
package Encode;
use strict;
-our $VERSION = do { my @r = (q$Revision: 1.9801 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 1.99 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
sub DEBUG () { 0 }
use XSLoader ();
XSLoader::load(__PACKAGE__, $VERSION);
return $str;
}
-sub decode_utf8($)
+sub decode_utf8($;$)
{
- my ($str) = @_;
- return undef unless utf8::decode($str);
- return $str;
+ my ($str, $check) = @_;
+ if ($check){
+ return decode("utf8", $str, $check);
+ }else{
+ return undef unless utf8::decode($str);
+ return $str;
+ }
}
predefine_encodings(1);
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Encode
-version: 1.98
+version: 1.99
version_from: Encode.pm
installdirs: perl
requires:
distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.16
+generated_by: ExtUtils::MakeMaker version 6.21_01
/*
- $Id: Unicode.xs,v 1.8 2003/06/18 09:29:02 dankogai Exp $
+ $Id: Unicode.xs,v 1.9 2003/12/29 02:47:16 dankogai Exp dankogai $
*/
#define PERL_NO_GET_CONTEXT
void
enc_pack(pTHX_ SV *result,STRLEN size,U8 endian,UV value)
{
- U8 *d = (U8 *)SvGROW(result,SvCUR(result)+size);
+ U8 *d = (U8 *)SvGROW(result,SvCUR(result)+size+1);
switch(endian) {
case 'v':
case 'V':
-# $Id: encoding.pm,v 1.47 2003/08/20 11:15:31 dankogai Exp dankogai $
+# $Id: encoding.pm,v 1.48 2003/12/29 02:47:16 dankogai Exp dankogai $
package encoding;
-our $VERSION = do { my @r = (q$Revision: 1.47 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 1.48 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
use Encode;
use strict;
-# $Id: enc_eucjp.t,v 1.5 2003/08/20 11:15:31 dankogai Exp dankogai $
+# $Id: enc_eucjp.t,v 1.5 2003/08/20 11:15:31 dankogai Exp $
# This is the twin of enc_utf8.t .
BEGIN {
-# $Id: enc_utf8.t,v 1.4 2003/08/20 11:15:31 dankogai Exp dankogai $
+# $Id: enc_utf8.t,v 1.4 2003/08/20 11:15:31 dankogai Exp $
# This is the twin of enc_eucjp.t .
BEGIN {
#
-# $Id: mime-header.t,v 1.8 2003/08/20 11:15:31 dankogai Exp dankogai $
+# $Id: mime-header.t,v 1.8 2003/08/20 11:15:31 dankogai Exp $
# This script is written in utf8
#
BEGIN {
#
-# $Id: gsm0338.ucm,v 1.0 2002/03/28 23:26:26 dankogai Exp $
+# $Id: gsm0338.ucm,v 1.1 2003/12/29 02:47:16 dankogai Exp dankogai $
#
# ./compile -n gsm0338 -o Encode/gsm0338.ucm Encode/gsm0338.enc
<code_set_name> "gsm0338"
#
-# $Id: macArabic.ucm,v 1.21 2003/08/20 11:15:31 dankogai Exp dankogai $
+# $Id: macArabic.ucm,v 1.21 2003/08/20 11:15:31 dankogai Exp $
#
# Original table can be obtained at
# http://www.unicode.org/Public/MAPPINGS/VENDORS/APPLE/ARABIC.TXT
#
-# $Id: macFarsi.ucm,v 1.21 2003/08/20 11:15:31 dankogai Exp dankogai $
+# $Id: macFarsi.ucm,v 1.21 2003/08/20 11:15:31 dankogai Exp $
#
# Original table can be obtained at
# http://www.unicode.org/Public/MAPPINGS/VENDORS/APPLE/FARSI.TXT
#
-# $Id: macHebrew.ucm,v 1.21 2003/08/20 11:15:31 dankogai Exp dankogai $
+# $Id: macHebrew.ucm,v 1.21 2003/08/20 11:15:31 dankogai Exp $
#
# Original table can be obtained at
# http://www.unicode.org/Public/MAPPINGS/VENDORS/APPLE/HEBREW.TXT