Benjamin Goldberg <goldbb2@earthlink.net>
Craig A. Berry <craigberry@mac.com>
Dan Kogai <dankogai@dan.co.jp>
+Elizabeth Mattijsen <liz@dijkmat.nl>
Gerrit P. Haase <gp@familiehaase.de>
Gurusamy Sarathy <gsar@activestate.com>
+H.Merijn Brand <h.m.brand@hccnet.nl>
Jarkko Hietaniemi <jhi@iki.fi>
Jungshik Shin <jshin@mailaps.org>
Laszlo Molnar <ml1050@freemail.hu>
# Revision history for Perl extension Encode.
#
-# $Id: Changes,v 1.67 2002/05/02 07:33:09 dankogai Exp $
+# $Id: Changes,v 1.68 2002/05/03 12:20:13 dankogai Exp $
#
-$Revision: 1.67 $ $Date: 2002/05/02 07:33:09 $
+$Revision: 1.68 $ $Date: 2002/05/03 12:20:13 $
+! lib/Encode/Alias.pm lib/Encode/Supported.pod t/Alias.t AUTHORS
+ UCS-4 added to aliases of UTF-32 by Elizabeth Mattijsen. Alias.t
+ and Supported.pod modified to reflect the change. Elizabeth added
+ to Authors. And H.M. is also added for forwarding her patch among
+ other contributions (I was rather surprised to find his name was not
+ there yet!)
+ Message-Id: <20020503114901.D639.H.M.BRAND@hccnet.nl>
+
+1.67 2002/05/02 07:33:09
! Encode.xs
Error message now consistent w/ perlqq (\N{U+} -> \x{})
done in perl@16308 but Philip linted me further. Now the error
Typo fixes and improvements by jhi
Message-Id: <200204010201.FAA03564@alpha.hut.fi>, et al.
-1.11 $Date: 2002/05/02 07:33:09 $
+1.11 $Date: 2002/05/03 12:20:13 $
+ t/encoding.t
+ t/jperl.t
! MANIFEST
#
-# $Id: Encode.pm,v 1.67 2002/05/02 07:33:34 dankogai Exp $
+# $Id: Encode.pm,v 1.68 2002/05/03 12:20:31 dankogai Exp $
#
package Encode;
use strict;
-our $VERSION = do { my @r = (q$Revision: 1.67 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 1.68 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
our $DEBUG = 0;
use XSLoader ();
XSLoader::load(__PACKAGE__, $VERSION);
package Encode::Alias;
use strict;
use Encode;
-our $VERSION = do { my @r = (q$Revision: 1.30 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 1.31 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
our $DEBUG = 0;
use base qw(Exporter);
# UTF/UCS stuff
define_alias( qr/^UCS-?2-?LE$/i => '"UCS-2LE"' );
define_alias( qr/^UCS-?2-?(BE)?$/i => '"UCS-2BE"',
+ qr/^UCS-?4-?(BE|LE)?$/i => 'uc("UTF-32$1")',
qr/^iso-10646-1$/i => '"UCS-2BE"' );
define_alias( qr/^UTF(16|32)-?BE$/i => '"UTF-$1BE"',
qr/^UTF(16|32)-?LE$/i => '"UTF-$1LE"',
UTF-16BE [UC]
UTF-16LE [UC]
UTF-32 [UC]
- UTF-32BE [UC]
+ UTF-32BE UCS-4 [UC]
UTF-32LE [UC]
----------------------------------------------------------------
'utf32-be' => 'UTF-32BE',
'utf16-le' => 'UTF-16LE',
'utf32-le' => 'UTF-32LE',
+ 'UCS4-BE' => 'UTF-32BE',
+ 'UCS-4-LE' => 'UTF-32LE',
'cyrillic' => 'iso-8859-5',
'arabic' => 'iso-8859-6',
'greek' => 'iso-8859-7',