Change 33929 by [EMAIL PROTECTED] on 2008/05/25 22:17:41
Integrate:
[ 33820]
Integrate:
[ 32977]
When parsing LC_ALL or LANG to get the locale's encoding, ignore
whatever is after the @, since that's a modifier, not an encoding.
[ 32980]
Boolean priority bug, found by Mashrab Kuvatov:
Subject: Re: [perl #49646] perlbug AutoReply: open ':locale' does not
work under locale with the modifier
From: Mashrab Kuvatov <[EMAIL PROTECTED]>
Date: Tue, 15 Jan 2008 15:17:42 +0100
Message-Id: <[EMAIL PROTECTED]>
[ 33234]
Subject: [PATCH] Remove duplication from encoding.pm POD
From: "Robert May" <[EMAIL PROTECTED]>
Date: Fri, 1 Feb 2008 01:06:07 +0530
Message-ID: <[EMAIL PROTECTED]>
[ 33562]
Subject: "646"
From: Jarkko Hietaniemi <[EMAIL PROTECTED]>
Date: Wed, 12 Mar 2008 21:43:53 -0400
Message-ID: <[EMAIL PROTECTED]>
Encode::Alias fix for encoding "646" (aka ASCII) on Solaris
[ 33783]
Subject: Perl 5.10/Encode 2.24: Tiny typo in Encode's Makefile.PL arg
processing
From: Jesse Vincent <[EMAIL PROTECTED]>
Date: Sat, 3 May 2008 13:41:45 -0400
Message-Id: <[EMAIL PROTECTED]>
[ 33800]
Upgrade to Encode 2.25
Affected files ...
... //depot/maint-5.8/perl/ext/Encode/Changes#36 integrate
... //depot/maint-5.8/perl/ext/Encode/Encode.pm#37 integrate
... //depot/maint-5.8/perl/ext/Encode/Makefile.PL#10 integrate
... //depot/maint-5.8/perl/ext/Encode/encoding.pm#27 integrate
... //depot/maint-5.8/perl/ext/Encode/lib/Encode/Alias.pm#21 integrate
... //depot/maint-5.8/perl/ext/Encode/lib/Encode/CN/HZ.pm#7 integrate
... //depot/maint-5.8/perl/ext/Encode/lib/Encode/GSM0338.pm#2 integrate
... //depot/maint-5.8/perl/ext/Encode/ucm/cp850.ucm#3 integrate
... //depot/maint-5.8/perl/ext/Encode/ucm/cp852.ucm#3 integrate
... //depot/maint-5.8/perl/ext/Encode/ucm/cp855.ucm#3 integrate
... //depot/maint-5.8/perl/ext/Encode/ucm/cp856.ucm#3 integrate
... //depot/maint-5.8/perl/ext/Encode/ucm/cp857.ucm#3 integrate
... //depot/maint-5.8/perl/ext/Encode/ucm/cp858.ucm#2 integrate
... //depot/maint-5.8/perl/ext/Encode/ucm/cp860.ucm#3 integrate
... //depot/maint-5.8/perl/ext/Encode/ucm/cp861.ucm#3 integrate
... //depot/maint-5.8/perl/ext/Encode/ucm/cp862.ucm#3 integrate
... //depot/maint-5.8/perl/ext/Encode/ucm/cp863.ucm#3 integrate
... //depot/maint-5.8/perl/ext/Encode/ucm/cp864.ucm#3 integrate
... //depot/maint-5.8/perl/ext/Encode/ucm/cp865.ucm#3 integrate
... //depot/maint-5.8/perl/ext/Encode/ucm/cp866.ucm#3 integrate
... //depot/maint-5.8/perl/ext/Encode/ucm/cp869.ucm#3 integrate
... //depot/maint-5.8/perl/ext/Encode/ucm/cp874.ucm#3 integrate
... //depot/maint-5.8/perl/ext/Encode/ucm/cp875.ucm#3 integrate
Differences ...
==== //depot/maint-5.8/perl/ext/Encode/Changes#36 (text) ====
Index: perl/ext/Encode/Changes
--- perl/ext/Encode/Changes#35~33528~ 2008-03-14 04:28:45.000000000 -0700
+++ perl/ext/Encode/Changes 2008-05-25 15:17:41.000000000 -0700
@@ -1,8 +1,21 @@
# Revision history for Perl extension Encode.
#
-# $Id: Changes,v 2.24 2008/03/12 09:51:11 dankogai Exp $
+# $Id: Changes,v 2.25 2008/05/07 20:56:05 dankogai Exp dankogai $
#
-$Revision: 2.24 $ $Date: 2008/03/12 09:51:11 $
+$Revision: 2.25 $ $Date: 2008/05/07 20:56:05 $
+! Encode.pm
+ added ':default' to Exporter option.
+! lib/Encode/GSM0338.pm
+ GSM0338 now handles coderef in CHECK
+ http://rt.cpan.org/Ticket/Display.html?id=31335
+! Makefile.PL
+ Perl 5.10/Encode 2.24: Tiny typo in Encode's Makefile.PL arg processing
+ Message-Id: <[EMAIL PROTECTED]>
+! lib/Encode/Alias.pm
+ "This fix for Encode::Alias should make Solaris happy:"
+ Message-ID: <[EMAIL PROTECTED]>
+
+$Revision: 2.25 $ $Date: 2008/05/07 20:56:05 $
! lib/Encode/Config.pm
adds and fixes also adds cp858 support.
! Encode.pm encoding.pm lib/Encode/Alias.pm ucm/cp858.ucm
==== //depot/maint-5.8/perl/ext/Encode/Encode.pm#37 (text) ====
Index: perl/ext/Encode/Encode.pm
--- perl/ext/Encode/Encode.pm#36~33528~ 2008-03-14 04:28:45.000000000 -0700
+++ perl/ext/Encode/Encode.pm 2008-05-25 15:17:41.000000000 -0700
@@ -1,10 +1,10 @@
#
-# $Id: Encode.pm,v 2.24 2008/03/12 09:58:12 dankogai Exp dankogai $
+# $Id: Encode.pm,v 2.25 2008/05/07 20:56:05 dankogai Exp dankogai $
#
package Encode;
use strict;
use warnings;
-our $VERSION = sprintf "%d.%02d", q$Revision: 2.24 $ =~ /(\d+)/g;
+our $VERSION = sprintf "%d.%02d", q$Revision: 2.25 $ =~ /(\d+)/g;
sub DEBUG () { 0 }
use XSLoader ();
XSLoader::load( __PACKAGE__, $VERSION );
@@ -36,7 +36,8 @@
our %EXPORT_TAGS = (
all => [ @EXPORT, @EXPORT_OK ],
- fallbacks => [EMAIL PROTECTED],
+ default => [ @EXPORT ],
+ fallbacks => [ @FB_CONSTS ],
fallback_all => [ @FB_CONSTS, @FB_FLAGS ],
);
==== //depot/maint-5.8/perl/ext/Encode/Makefile.PL#10 (text) ====
Index: perl/ext/Encode/Makefile.PL
--- perl/ext/Encode/Makefile.PL#9~33528~ 2008-03-14 04:28:45.000000000
-0700
+++ perl/ext/Encode/Makefile.PL 2008-05-25 15:17:41.000000000 -0700
@@ -1,5 +1,5 @@
#
-# $Id: Makefile.PL,v 2.5 2007/05/29 18:15:32 dankogai Exp $
+# $Id: Makefile.PL,v 2.6 2008/05/07 20:56:05 dankogai Exp dankogai $
#
use 5.007003;
use strict;
@@ -28,7 +28,7 @@
);
my @pmlibdirs = qw(lib Encode);
-$ARGV{MORE_SCRIOPTS} and push @exe_files, @more_exe_files;
+$ARGV{MORE_SCRIPTS} and push @exe_files, @more_exe_files;
$ARGV{INSTALL_UCM} and push @pmlibdirs, "ucm";
my @man = ();
@man = ( MAN1PODS => {}, MAN3PODS => {} ) if $ENV{PERL_CORE};
==== //depot/maint-5.8/perl/ext/Encode/encoding.pm#27 (text) ====
Index: perl/ext/Encode/encoding.pm
--- perl/ext/Encode/encoding.pm#26~33528~ 2008-03-14 04:28:45.000000000
-0700
+++ perl/ext/Encode/encoding.pm 2008-05-25 15:17:41.000000000 -0700
@@ -1,6 +1,6 @@
# $Id: encoding.pm,v 2.7 2008/03/12 09:51:11 dankogai Exp $
package encoding;
-our $VERSION = do { my @r = ( q$Revision: 2.6 $ =~ /\d+/g ); sprintf "%d." .
"%02d" x $#r, @r };
+our $VERSION = '2.6_01';
use Encode;
use strict;
@@ -50,11 +50,11 @@
no warnings 'uninitialized';
- if ( not $locale_encoding && in_locale() ) {
- if ( $ENV{LC_ALL} =~ /^([^.]+)\.([^.]+)$/ ) {
+ if ( (not $locale_encoding) && in_locale() ) {
+ if ( $ENV{LC_ALL} =~ /^([^.]+)\.([EMAIL PROTECTED])(@.*)?$/ ) {
( $country_language, $locale_encoding ) = ( $1, $2 );
}
- elsif ( $ENV{LANG} =~ /^([^.]+)\.([^.]+)$/ ) {
+ elsif ( $ENV{LANG} =~ /^([^.]+)\.([EMAIL PROTECTED])(@.*)?$/ ) {
( $country_language, $locale_encoding ) = ( $1, $2 );
}
@@ -315,14 +315,6 @@
This pragma affects utf8::upgrade, but not utf8::downgrade.
-=head2 Side effects
-
-If the C<encoding> pragma is in scope then the lengths returned are
-calculated from the length of C<$/> in Unicode characters, which is not
-always the same as the length of C<$/> in the native encoding.
-
-This pragma affects utf8::upgrade, but not utf8::downgrade.
-
=head1 FEATURES THAT REQUIRE 5.8.1
Some of the features offered by this pragma requires perl 5.8.1. Most
==== //depot/maint-5.8/perl/ext/Encode/lib/Encode/Alias.pm#21 (text) ====
Index: perl/ext/Encode/lib/Encode/Alias.pm
--- perl/ext/Encode/lib/Encode/Alias.pm#20~33528~ 2008-03-14
04:28:45.000000000 -0700
+++ perl/ext/Encode/lib/Encode/Alias.pm 2008-05-25 15:17:41.000000000 -0700
@@ -2,7 +2,7 @@
use strict;
use warnings;
no warnings 'redefine';
-our $VERSION = do { my @r = ( q$Revision: 2.8 $ =~ /\d+/g ); sprintf "%d." .
"%02d" x $#r, @r };
+our $VERSION = do { my @r = ( q$Revision: 2.9 $ =~ /\d+/g ); sprintf "%d." .
"%02d" x $#r, @r };
sub DEBUG () { 0 }
use base qw(Exporter);
@@ -151,7 +151,7 @@
# ASCII
define_alias( qr/^(?:US-?)ascii$/i => '"ascii"' );
define_alias( 'C' => 'ascii' );
- define_alias( qr/\bISO[-_]?646[-_]?US$/i => '"ascii"' );
+ define_alias( qr/\b(?:ISO[-_]?)?646(?:[-_]?US)?$/i => '"ascii"' );
# Allow variants of iso-8859-1 etc.
define_alias( qr/\biso[-_]?(\d+)[-_](\d+)$/i => '"iso-$1-$2"' );
==== //depot/maint-5.8/perl/ext/Encode/lib/Encode/CN/HZ.pm#7 (text) ====
Index: perl/ext/Encode/lib/Encode/CN/HZ.pm
--- perl/ext/Encode/lib/Encode/CN/HZ.pm#6~30047~ 2007-01-27
15:49:02.000000000 -0800
+++ perl/ext/Encode/lib/Encode/CN/HZ.pm 2008-05-25 15:17:41.000000000 -0700
@@ -2,9 +2,10 @@
use strict;
use warnings;
+use utf8 ();
use vars qw($VERSION);
-$VERSION = do { my @r = ( q$Revision: 2.4 $ =~ /\d+/g ); sprintf "%d." .
"%02d" x $#r, @r };
+$VERSION = do { my @r = ( q$Revision: 2.5 $ =~ /\d+/g ); sprintf "%d." .
"%02d" x $#r, @r };
use Encode qw(:fallbacks);
@@ -183,6 +184,7 @@
$ret .= "\x7E\x7D"; # '~}'
$in_ascii = 1;
}
+ utf8::encode($ret); # https://rt.cpan.org/Ticket/Display.html?id=35120
return $ret;
}
==== //depot/maint-5.8/perl/ext/Encode/lib/Encode/GSM0338.pm#2 (text) ====
Index: perl/ext/Encode/lib/Encode/GSM0338.pm
--- perl/ext/Encode/lib/Encode/GSM0338.pm#1~31070~ 2007-04-25
03:13:37.000000000 -0700
+++ perl/ext/Encode/lib/Encode/GSM0338.pm 2008-05-25 15:17:41.000000000
-0700
@@ -1,5 +1,5 @@
#
-# $Id: GSM0338.pm,v 2.0 2007/04/22 14:54:22 dankogai Exp $
+# $Id: GSM0338.pm,v 2.1 2008/05/07 20:56:05 dankogai Exp dankogai $
#
package Encode::GSM0338;
@@ -8,7 +8,7 @@
use Carp;
use vars qw($VERSION);
-$VERSION = do { my @r = ( q$Revision: 2.0 $ =~ /\d+/g ); sprintf "%d." .
"%02d" x $#r, @r };
+$VERSION = do { my @r = ( q$Revision: 2.1 $ =~ /\d+/g ); sprintf "%d." .
"%02d" x $#r, @r };
use Encode qw(:fallbacks);
@@ -198,9 +198,11 @@
}
else {
$u =
- exists $GSM2UNI{$c} ? $GSM2UNI{$c}
- : $chk
- ? croak sprintf( "\\x%02X does not map to Unicode", ord($c) )
+ exists $GSM2UNI{$c}
+ ? $GSM2UNI{$c}
+ : $chk ? ref $chk eq 'CODE'
+ ? $chk->( ord $c )
+ : croak sprintf( "\\x%02X does not map to Unicode", ord($c) )
: $FBCHAR;
}
$str .= $u;
@@ -218,10 +220,12 @@
my $u = substr( $str, 0, 1, '' );
my $c;
$bytes .=
- exists $UNI2GSM{$u} ? $UNI2GSM{$u}
- : $chk
- ? croak sprintf( "\\x{%04x} does not map to %s",
- ord($u), $obj->name )
+ exists $UNI2GSM{$u}
+ ? $UNI2GSM{$u}
+ : $chk ? ref $chk eq 'CODE'
+ ? $chk->( ord($u) )
+ : croak sprintf( "\\x{%04x} does not map to %s",
+ ord($u), $obj->name )
: $FBCHAR;
}
$_[1] = $str if $chk;
==== //depot/maint-5.8/perl/ext/Encode/ucm/cp850.ucm#3 (text) ====
Index: perl/ext/Encode/ucm/cp850.ucm
--- perl/ext/Encode/ucm/cp850.ucm#2~22869~ 2004-05-30 07:26:17.000000000
-0700
+++ perl/ext/Encode/ucm/cp850.ucm 2008-05-25 15:17:41.000000000 -0700
@@ -1,5 +1,5 @@
#
-# $Id: cp850.ucm,v 2.0 2004/05/16 20:55:21 dankogai Exp $
+# $Id: cp850.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
#
# Original table can be obtained at
# http://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/PC/CP850.TXT
==== //depot/maint-5.8/perl/ext/Encode/ucm/cp852.ucm#3 (text) ====
Index: perl/ext/Encode/ucm/cp852.ucm
--- perl/ext/Encode/ucm/cp852.ucm#2~22869~ 2004-05-30 07:26:17.000000000
-0700
+++ perl/ext/Encode/ucm/cp852.ucm 2008-05-25 15:17:41.000000000 -0700
@@ -1,5 +1,5 @@
#
-# $Id: cp852.ucm,v 2.0 2004/05/16 20:55:21 dankogai Exp $
+# $Id: cp852.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
#
# Original table can be obtained at
# http://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/PC/CP852.TXT
==== //depot/maint-5.8/perl/ext/Encode/ucm/cp855.ucm#3 (text) ====
Index: perl/ext/Encode/ucm/cp855.ucm
--- perl/ext/Encode/ucm/cp855.ucm#2~22869~ 2004-05-30 07:26:17.000000000
-0700
+++ perl/ext/Encode/ucm/cp855.ucm 2008-05-25 15:17:41.000000000 -0700
@@ -1,5 +1,5 @@
#
-# $Id: cp855.ucm,v 2.0 2004/05/16 20:55:21 dankogai Exp $
+# $Id: cp855.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
#
# Original table can be obtained at
# http://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/PC/CP855.TXT
==== //depot/maint-5.8/perl/ext/Encode/ucm/cp856.ucm#3 (text) ====
Index: perl/ext/Encode/ucm/cp856.ucm
--- perl/ext/Encode/ucm/cp856.ucm#2~22869~ 2004-05-30 07:26:17.000000000
-0700
+++ perl/ext/Encode/ucm/cp856.ucm 2008-05-25 15:17:41.000000000 -0700
@@ -1,5 +1,5 @@
#
-# $Id: cp856.ucm,v 2.0 2004/05/16 20:55:21 dankogai Exp $
+# $Id: cp856.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
#
# Original table can be obtained at
# http://www.unicode.org/Public/MAPPINGS/VENDORS/MISC/CP856.TXT
==== //depot/maint-5.8/perl/ext/Encode/ucm/cp857.ucm#3 (text) ====
Index: perl/ext/Encode/ucm/cp857.ucm
--- perl/ext/Encode/ucm/cp857.ucm#2~22869~ 2004-05-30 07:26:17.000000000
-0700
+++ perl/ext/Encode/ucm/cp857.ucm 2008-05-25 15:17:41.000000000 -0700
@@ -1,5 +1,5 @@
#
-# $Id: cp857.ucm,v 2.0 2004/05/16 20:55:21 dankogai Exp $
+# $Id: cp857.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
#
# Original table can be obtained at
# http://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/PC/CP857.TXT
==== //depot/maint-5.8/perl/ext/Encode/ucm/cp858.ucm#2 (text) ====
Index: perl/ext/Encode/ucm/cp858.ucm
--- perl/ext/Encode/ucm/cp858.ucm#1~33528~ 2008-03-14 04:28:45.000000000
-0700
+++ perl/ext/Encode/ucm/cp858.ucm 2008-05-25 15:17:41.000000000 -0700
@@ -1,5 +1,5 @@
#
-# $Id: cp858.ucm,v 1.1 2008/03/12 09:51:11 dankogai Exp $
+# $Id: cp858.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
#
# cf. http://en.wikipedia.org/wiki/Code_page_858
#
==== //depot/maint-5.8/perl/ext/Encode/ucm/cp860.ucm#3 (text) ====
Index: perl/ext/Encode/ucm/cp860.ucm
--- perl/ext/Encode/ucm/cp860.ucm#2~22869~ 2004-05-30 07:26:17.000000000
-0700
+++ perl/ext/Encode/ucm/cp860.ucm 2008-05-25 15:17:41.000000000 -0700
@@ -1,5 +1,5 @@
#
-# $Id: cp860.ucm,v 2.0 2004/05/16 20:55:21 dankogai Exp $
+# $Id: cp860.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
#
# Original table can be obtained at
# http://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/PC/CP860.TXT
==== //depot/maint-5.8/perl/ext/Encode/ucm/cp861.ucm#3 (text) ====
Index: perl/ext/Encode/ucm/cp861.ucm
--- perl/ext/Encode/ucm/cp861.ucm#2~22869~ 2004-05-30 07:26:17.000000000
-0700
+++ perl/ext/Encode/ucm/cp861.ucm 2008-05-25 15:17:41.000000000 -0700
@@ -1,5 +1,5 @@
#
-# $Id: cp861.ucm,v 2.0 2004/05/16 20:55:21 dankogai Exp $
+# $Id: cp861.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
#
# Original table can be obtained at
# http://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/PC/CP861.TXT
==== //depot/maint-5.8/perl/ext/Encode/ucm/cp862.ucm#3 (text) ====
Index: perl/ext/Encode/ucm/cp862.ucm
--- perl/ext/Encode/ucm/cp862.ucm#2~22869~ 2004-05-30 07:26:17.000000000
-0700
+++ perl/ext/Encode/ucm/cp862.ucm 2008-05-25 15:17:41.000000000 -0700
@@ -1,5 +1,5 @@
#
-# $Id: cp862.ucm,v 2.0 2004/05/16 20:55:21 dankogai Exp $
+# $Id: cp862.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
#
# Original table can be obtained at
# http://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/PC/CP862.TXT
==== //depot/maint-5.8/perl/ext/Encode/ucm/cp863.ucm#3 (text) ====
Index: perl/ext/Encode/ucm/cp863.ucm
--- perl/ext/Encode/ucm/cp863.ucm#2~22869~ 2004-05-30 07:26:17.000000000
-0700
+++ perl/ext/Encode/ucm/cp863.ucm 2008-05-25 15:17:41.000000000 -0700
@@ -1,5 +1,5 @@
#
-# $Id: cp863.ucm,v 2.0 2004/05/16 20:55:21 dankogai Exp $
+# $Id: cp863.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
#
# Original table can be obtained at
# http://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/PC/CP863.TXT
==== //depot/maint-5.8/perl/ext/Encode/ucm/cp864.ucm#3 (text) ====
Index: perl/ext/Encode/ucm/cp864.ucm
--- perl/ext/Encode/ucm/cp864.ucm#2~22869~ 2004-05-30 07:26:17.000000000
-0700
+++ perl/ext/Encode/ucm/cp864.ucm 2008-05-25 15:17:41.000000000 -0700
@@ -1,5 +1,5 @@
#
-# $Id: cp864.ucm,v 2.0 2004/05/16 20:55:21 dankogai Exp $
+# $Id: cp864.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
#
# Original table can be obtained at
# http://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/PC/CP864.TXT
==== //depot/maint-5.8/perl/ext/Encode/ucm/cp865.ucm#3 (text) ====
Index: perl/ext/Encode/ucm/cp865.ucm
--- perl/ext/Encode/ucm/cp865.ucm#2~22869~ 2004-05-30 07:26:17.000000000
-0700
+++ perl/ext/Encode/ucm/cp865.ucm 2008-05-25 15:17:41.000000000 -0700
@@ -1,5 +1,5 @@
#
-# $Id: cp865.ucm,v 2.0 2004/05/16 20:55:21 dankogai Exp $
+# $Id: cp865.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
#
# Original table can be obtained at
# http://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/PC/CP865.TXT
==== //depot/maint-5.8/perl/ext/Encode/ucm/cp866.ucm#3 (text) ====
Index: perl/ext/Encode/ucm/cp866.ucm
--- perl/ext/Encode/ucm/cp866.ucm#2~22869~ 2004-05-30 07:26:17.000000000
-0700
+++ perl/ext/Encode/ucm/cp866.ucm 2008-05-25 15:17:41.000000000 -0700
@@ -1,5 +1,5 @@
#
-# $Id: cp866.ucm,v 2.0 2004/05/16 20:55:21 dankogai Exp $
+# $Id: cp866.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
#
# Original table can be obtained at
# http://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/PC/CP866.TXT
==== //depot/maint-5.8/perl/ext/Encode/ucm/cp869.ucm#3 (text) ====
Index: perl/ext/Encode/ucm/cp869.ucm
--- perl/ext/Encode/ucm/cp869.ucm#2~22869~ 2004-05-30 07:26:17.000000000
-0700
+++ perl/ext/Encode/ucm/cp869.ucm 2008-05-25 15:17:41.000000000 -0700
@@ -1,5 +1,5 @@
#
-# $Id: cp869.ucm,v 2.0 2004/05/16 20:55:21 dankogai Exp $
+# $Id: cp869.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
#
# Original table can be obtained at
# http://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/PC/CP869.TXT
==== //depot/maint-5.8/perl/ext/Encode/ucm/cp874.ucm#3 (text) ====
Index: perl/ext/Encode/ucm/cp874.ucm
--- perl/ext/Encode/ucm/cp874.ucm#2~22869~ 2004-05-30 07:26:17.000000000
-0700
+++ perl/ext/Encode/ucm/cp874.ucm 2008-05-25 15:17:41.000000000 -0700
@@ -1,5 +1,5 @@
#
-# $Id: cp874.ucm,v 2.0 2004/05/16 20:55:21 dankogai Exp $
+# $Id: cp874.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
#
# Original table can be obtained at
# http://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP874.TXT
==== //depot/maint-5.8/perl/ext/Encode/ucm/cp875.ucm#3 (text) ====
Index: perl/ext/Encode/ucm/cp875.ucm
--- perl/ext/Encode/ucm/cp875.ucm#2~22869~ 2004-05-30 07:26:17.000000000
-0700
+++ perl/ext/Encode/ucm/cp875.ucm 2008-05-25 15:17:41.000000000 -0700
@@ -1,5 +1,5 @@
#
-# $Id: cp875.ucm,v 2.0 2004/05/16 20:55:21 dankogai Exp $
+# $Id: cp875.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp dankogai $
#
# Original table can be obtained at
# http://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/EBCDIC/CP875.TXT
End of Patch.
