ext/Encode/lib/Encode/JP/JIS7.pm Encode extension
ext/Encode/lib/Encode/KR/2022_KR.pm Encode extension
ext/Encode/lib/Encode/MIME/Header.pm Encode extension
+ext/Encode/lib/Encode/MIME/Header/ISO_2022_JP.pm Encode extension
ext/Encode/lib/Encode/PerlIO.pod Documents for Encode & PerlIO
ext/Encode/lib/Encode/Supported.pod Documents for supported encodings
ext/Encode/lib/Encode/Unicode/UTF7.pm Encode extension
ext/Encode/t/ksc5601.enc test data
ext/Encode/t/ksc5601.utf test data
ext/Encode/t/mime-header.t test script
+ext/Encode/t/mime_header_iso2022jp.t test script
ext/Encode/t/Mod_EUCJP.pm module that t/enc_module.enc uses
ext/Encode/t/perlio.t test script
ext/Encode/t/rt.pl test script
Andreas J. Koenig <andreas.koenig@anima.de>
Anton Tagunov <tagunov@motor.ru>
Autrijus Tang <autrijus@autrijus.org>
-Benjamin Goldberg <goldbb2@earthlink.net>
+Benjamin Goldberg <goldbb2@earthlink.net>
Bjoern Hoehrmann <derhoermi@gmx.net>
Bjoern Jacke <debianbugs@j3e.de>
-Chris Nandor <pudge@pobox.com>
+Chris Nandor <pudge@pobox.com>
Craig A. Berry <craigberry@mac.com>
Dan Kogai <dankogai@dan.co.jp>
Dave Evans <dave@rudolf.org.uk>
Deng Liu <dengliu@ntu.edu.tw>
Dominic Dunlop <domo@computer.org>
-Elizabeth Mattijsen <liz@dijkmat.nl>
+Elizabeth Mattijsen <liz@dijkmat.nl>
Gerrit P. Haase <gp@familiehaase.de>
-Graham Barr <gbarr@pobox.com>
+Graham Barr <gbarr@pobox.com>
Gurusamy Sarathy <gsar@activestate.com>
-H.Merijn Brand <h.m.brand@hccnet.nl>
+H.Merijn Brand <h.m.brand@xs4all.nl>
Hugo van der Sanden <hv@crypt.org>
Inaba Hiroto <inaba@st.rim.or.jp>
Jarkko Hietaniemi <jhi@iki.fi>
-Jungshik Shin <jshin@mailaps.org>
+Jungshik Shin <jshin@mailaps.org>
+KONNO Hiroharu <hiroharu.konno@bowneglobal.co.jp>
Laszlo Molnar <ml1050@freemail.hu>
MORIYAMA Masayuki <msyk@mtg.biglobe.ne.jp>
-Mark-Jason Dominus <mjd@plover.com>
+Makamaka <makamaka@donzoko.net>
+Mark-Jason Dominus <mjd@plover.com>
Mattia Barbon <mbarbon@dsi.unive.it>
-Michael G Schwern <schwern@pobox.com>
+Michael G Schwern <schwern@pobox.com>
+Miron Cuperman <miron@hyper.to>
Nicholas Clark <nick@ccl4.org>
Nick Ing-Simmons <nick@ing-simmons.net>
-Paul Marquess <paul_marquess@yahoo.co.uk>
+Paul Marquess <paul_marquess@yahoo.co.uk>
Peter Prymmer <pvhp@best.com>
Philip Newton <pne@cpan.org>
-Robin Barker <rmb1@cise.npl.co.uk>
+Piotr Fusik <pfusik@op.pl>
+Robin Barker <rmb1@cise.npl.co.uk>
SADAHIRO Tomoyuki <SADAHIRO@cpan.org>
SUGAWARA Hajime <sugawara@hdt.co.jp>
-SUZUKI Norio <ZAP00217@nifty.com>
+SUZUKI Norio <ZAP00217@nifty.com>
Simon Cozens <simon@netthink.co.uk>
Spider Boardman <spider@web.zk3.dec.com>
Steve Hay <steve.hay@uk.radan.com>
Steve Peters <steve@fisharerojo.org>
Tatsuhiko Miyagawa <miyagawa@edge.co.jp>
-Tels <perl_dummy@bloodgate.com>
+Tels <perl_dummy@bloodgate.com>
Vadim Konovalov <vkonovalov@peterstar.ru>
Yitzchak Scott-Thoennes <sthoenna@efn.org>
# Revision history for Perl extension Encode.
#
-# $Id: Changes,v 2.10 2005/05/16 18:46:36 dankogai Exp dankogai $
+# $Id: Changes,v 2.11 2005/08/05 10:58:25 dankogai Exp dankogai $
#
-$Revision: 2.10 $ $Date: 2005/05/16 18:46:36 $
+$Revision: 2.11 $ $Date: 2005/08/05 10:58:25 $
+! AUTHORS CHANGES
+ To reflect changes below
+! Encode.pm encoding.pm
+ lib/Encode/Alias.pm lib/Encode/PerlIO.pod lib/Encode/Supported.pod
+ Typo fixed by Piotr Fusik in Change 25261 & 25266
+ Message-ID: <001401c595bd$dccb5d80$0bd34dd5@piec>
+! Encode.xs
+ Addresses "BUG REPORT: panic in Encode.xs".
+ Message-Id: <42EDDA97.2010608@hyper.to>
++ lib/Encode/MIME/Header/ISO_2022_JP.pm mime_header_iso2022jp.t
+! lib/Encode/MIME/Header.pm lib/Encode/Config.pm
+ Encoding 'MIME-Header-ISO_2022_JP' is introduced by Makamaka
+ Message-Id: <200507311557.j6VFvE2K034605@www231.sakura.ne.jp>
+! Encode/encode.h Encode.pm Encode.xs
+ PerlIO's "encoding(utf-8-strict)" got a problem w/ partial character.
+ Found and addressed by KONNO Hiroharu <hiroharu.konno@bowneglobal.co.jp>
+ See also ext/PerlIO/encoding/encoding.pm
+ Message-Id: <E1DineE-00068X-TB@yok-gs-workman.asia.bgsinternal.com>
+
+2.10 2005/05/16 18:46:36
! Encode.pm
fixed decode_utf8() accordingly to RT#8872
http://rt.cpan.org/NoAuth/Bug.html?id=8872
#
-# $Id: Encode.pm,v 2.10 2005/05/16 18:46:36 dankogai Exp dankogai $
+# $Id: Encode.pm,v 2.11 2005/08/05 10:58:25 dankogai Exp dankogai $
#
package Encode;
use strict;
-our $VERSION = sprintf "%d.%02d", q$Revision: 2.10 $ =~ /(\d+)/g;
+our $VERSION = sprintf "%d.%02d", q$Revision: 2.11 $ =~ /(\d+)/g;
sub DEBUG () { 0 }
use XSLoader ();
XSLoader::load(__PACKAGE__, $VERSION);
);
our @FB_FLAGS = qw(DIE_ON_ERR WARN_ON_ERR RETURN_ON_ERR LEAVE_SRC
- PERLQQ HTMLCREF XMLCREF);
+ PERLQQ HTMLCREF XMLCREF STOP_AT_PARTIAL);
our @FB_CONSTS = qw(FB_DEFAULT FB_CROAK FB_QUIET FB_WARN
FB_PERLQQ FB_HTMLCREF FB_XMLCREF);
/*
- $Id: Encode.xs,v 2.4 2005/05/16 18:46:36 dankogai Exp dankogai $
+ $Id: Encode.xs,v 2.5 2005/08/05 10:58:25 dankogai Exp dankogai $
*/
#define PERL_NO_GET_CONTEXT
UV ch =
utf8n_to_uvuni(s+slen, (SvCUR(src)-slen),
&clen, UTF8_ALLOW_ANY|UTF8_CHECK_ONLY);
+ /* if non-representable multibyte prefix at end of current buffer - break*/
+ if (clen > tlen - sdone) break;
if (check & ENCODE_DIE_ON_ERR) {
Perl_croak(aTHX_ ERR_ENCODE_NOMAP,
(UV)ch, enc->name[0]);
if ((s + skip) > e) {
/* Partial character */
/* XXX could check that rest of bytes are UTF8_IS_CONTINUATION(ch) */
- if (stop_at_partial)
+ if (stop_at_partial || (check & ENCODE_STOP_AT_PARTIAL))
break;
goto malformed_byte;
RETVAL
int
+STOP_AT_PARTIAL()
+CODE:
+ RETVAL = ENCODE_STOP_AT_PARTIAL;
+OUTPUT:
+ RETVAL
+
+int
FB_DEFAULT()
CODE:
RETVAL = ENCODE_FB_DEFAULT;
#define ENCODE_PERLQQ 0x0100 /* perlqq fallback string */
#define ENCODE_HTMLCREF 0x0200 /* HTML character ref. fb mode */
#define ENCODE_XMLCREF 0x0400 /* XML character ref. fb mode */
+#define ENCODE_STOP_AT_PARTIAL 0x0800 /* stop at partial explicitly */
#define ENCODE_FB_DEFAULT 0x0000
#define ENCODE_FB_CROAK 0x0001
lib/Encode/JP/JIS7.pm Encode extension
lib/Encode/KR/2022_KR.pm Encode extension
lib/Encode/MIME/Header.pm Encode extension
+lib/Encode/MIME/Header/ISO_2022_JP.pm Encode extension
lib/Encode/PerlIO.pod Documents for Encode & PerlIO
lib/Encode/Supported.pod Documents for supported encodings
lib/Encode/Unicode/UTF7.pm Encode Extension
t/ksc5601.enc test data
t/ksc5601.utf test data
t/mime-header.t test script
+t/mime_header_iso2022jp.t test script
t/perlio.t test script
t/rt.pl even more test script
t/unibench.pl benchmark script
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Encode
-version: 2.10
+version: 2.11
version_from: Encode.pm
installdirs: perl
requires:
use strict;
no warnings 'redefine';
use Encode;
-our $VERSION = do { my @r = (q$Revision: 2.3 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 2.4 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
sub DEBUG () { 0 }
use base qw(Exporter);
# Demand-load module list
#
package Encode::Config;
-our $VERSION = do { my @r = (q$Revision: 2.0 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 2.1 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
use strict;
'MIME-B' => 'Encode::MIME::Header',
'MIME-Q' => 'Encode::MIME::Header',
+ 'MIME-Header-ISO_2022_JP' => 'Encode::MIME::Header::ISO_2022_JP',
);
}
package Encode::MIME::Header;
use strict;
# use warnings;
-our $VERSION = do { my @r = (q$Revision: 2.0 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 2.1 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
use Encode qw(find_encoding encode_utf8 decode_utf8);
use MIME::Base64;
use Carp;
These days major mail agents all support =?UTF-8? so I think it is
just good enough.
+Due to popular demand, 'MIME-Header-ISO_2022_JP' was introduced by
+Makamaka. Thre are still too many MUAs especially cellular phone
+handsets which does not grok UTF-8.
+
=head1 SEE ALSO
L<Encode>
package PerlIO::encoding;
use strict;
-our $VERSION = '0.08';
+our $VERSION = '0.09';
our $DEBUG = 0;
$DEBUG and warn __PACKAGE__, " called by ", join(", ", caller), "\n";
use XSLoader ();
XSLoader::load(__PACKAGE__, $VERSION);
-our $fallback = Encode::PERLQQ()|Encode::WARN_ON_ERR();
+our $fallback =
+ Encode::PERLQQ()|Encode::WARN_ON_ERR()|Encode::STOP_AT_PARTIAL();
1;
__END__
projects / p5sagit/p5-mst-13.2.git / commitdiff