Change 16369 by jhi@alpha on 2002/05/03 12:34:01
Upgrade to Encode 1.68.
Affected files ...
.... //depot/perl/ext/Encode/AUTHORS#15 edit
.... //depot/perl/ext/Encode/Changes#34 edit
.... //depot/perl/ext/Encode/Encode.pm#111 edit
.... //depot/perl/ext/Encode/lib/Encode/Alias.pm#17 edit
.... //depot/perl/ext/Encode/lib/Encode/Supported.pod#17 edit
.... //depot/perl/ext/Encode/t/Aliases.t#13 edit
Differences ...
==== //depot/perl/ext/Encode/AUTHORS#15 (text) ====
Index: perl/ext/Encode/AUTHORS
--- perl/ext/Encode/AUTHORS.~1~ Fri May 3 06:45:06 2002
+++ perl/ext/Encode/AUTHORS Fri May 3 06:45:06 2002
@@ -15,8 +15,10 @@
Benjamin Goldberg <[EMAIL PROTECTED]>
Craig A. Berry <[EMAIL PROTECTED]>
Dan Kogai <[EMAIL PROTECTED]>
+Elizabeth Mattijsen <[EMAIL PROTECTED]>
Gerrit P. Haase <[EMAIL PROTECTED]>
Gurusamy Sarathy <[EMAIL PROTECTED]>
+H.Merijn Brand <[EMAIL PROTECTED]>
Jarkko Hietaniemi <[EMAIL PROTECTED]>
Jungshik Shin <[EMAIL PROTECTED]>
Laszlo Molnar <[EMAIL PROTECTED]>
==== //depot/perl/ext/Encode/Changes#34 (text) ====
Index: perl/ext/Encode/Changes
--- perl/ext/Encode/Changes.~1~ Fri May 3 06:45:06 2002
+++ perl/ext/Encode/Changes Fri May 3 06:45:06 2002
@@ -1,9 +1,18 @@
# 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: <[EMAIL PROTECTED]>
+
+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
@@ -574,7 +583,7 @@
Typo fixes and improvements by jhi
Message-Id: <[EMAIL PROTECTED]>, 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
==== //depot/perl/ext/Encode/Encode.pm#111 (text) ====
Index: perl/ext/Encode/Encode.pm
--- perl/ext/Encode/Encode.pm.~1~ Fri May 3 06:45:06 2002
+++ perl/ext/Encode/Encode.pm Fri May 3 06:45:06 2002
@@ -1,9 +1,9 @@
#
-# $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);
==== //depot/perl/ext/Encode/lib/Encode/Alias.pm#17 (text) ====
Index: perl/ext/Encode/lib/Encode/Alias.pm
--- perl/ext/Encode/lib/Encode/Alias.pm.~1~ Fri May 3 06:45:06 2002
+++ perl/ext/Encode/lib/Encode/Alias.pm Fri May 3 06:45:06 2002
@@ -1,7 +1,7 @@
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);
@@ -130,6 +130,7 @@
# 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"',
==== //depot/perl/ext/Encode/lib/Encode/Supported.pod#17 (text) ====
Index: perl/ext/Encode/lib/Encode/Supported.pod
--- perl/ext/Encode/lib/Encode/Supported.pod.~1~ Fri May 3 06:45:06 2002
+++ perl/ext/Encode/lib/Encode/Supported.pod Fri May 3 06:45:06 2002
@@ -77,7 +77,7 @@
UTF-16BE [UC]
UTF-16LE [UC]
UTF-32 [UC]
- UTF-32BE [UC]
+ UTF-32BE UCS-4 [UC]
UTF-32LE [UC]
----------------------------------------------------------------
==== //depot/perl/ext/Encode/t/Aliases.t#13 (text) ====
Index: perl/ext/Encode/t/Aliases.t
--- perl/ext/Encode/t/Aliases.t.~1~ Fri May 3 06:45:06 2002
+++ perl/ext/Encode/t/Aliases.t Fri May 3 06:45:06 2002
@@ -33,6 +33,8 @@
'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',
End of Patch.
