r17465 - in /trunk/libencode-perl: Changes Encode.pm Encode.xs MANIFEST META.yml Makefile.PL bin/ucmlint debian/changelog encoding.pm lib/Encode/Alias.pm lib/Encode/Config.pm t/mime_header_iso2022jp.t ucm/cp858.ucm ucm/macJapanese.ucm
tincho-guest at users.alioth.debian.org
tincho-guest at users.alioth.debian.org
Sat Mar 15 04:21:02 UTC 2008
Author: tincho-guest
Date: Sat Mar 15 04:21:01 2008
New Revision: 17465
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=17465
Log:
* New upstream release.
Added:
trunk/libencode-perl/ucm/cp858.ucm
- copied unchanged from r17461, branches/upstream/libencode-perl/current/ucm/cp858.ucm
Modified:
trunk/libencode-perl/Changes
trunk/libencode-perl/Encode.pm
trunk/libencode-perl/Encode.xs
trunk/libencode-perl/MANIFEST
trunk/libencode-perl/META.yml
trunk/libencode-perl/Makefile.PL
trunk/libencode-perl/bin/ucmlint
trunk/libencode-perl/debian/changelog
trunk/libencode-perl/encoding.pm
trunk/libencode-perl/lib/Encode/Alias.pm
trunk/libencode-perl/lib/Encode/Config.pm
trunk/libencode-perl/t/mime_header_iso2022jp.t
trunk/libencode-perl/ucm/macJapanese.ucm
Modified: trunk/libencode-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libencode-perl/Changes?rev=17465&op=diff
==============================================================================
--- trunk/libencode-perl/Changes (original)
+++ trunk/libencode-perl/Changes Sat Mar 15 04:21:01 2008
@@ -1,8 +1,28 @@
# Revision history for Perl extension Encode.
#
-# $Id: Changes,v 2.23 2007/05/29 18:15:32 dankogai Exp dankogai $
+# $Id: Changes,v 2.24 2008/03/12 09:51:11 dankogai Exp $
#
-$Revision: 2.23 $ $Date: 2007/05/29 18:15:32 $
+$Revision: 2.24 $ $Date: 2008/03/12 09:51:11 $
+! lib/Encode/Config.pm
+ adds and fixes also adds cp858 support.
+! Encode.pm encoding.pm lib/Encode/Alias.pm ucm/cp858.ucm
+ Merged perl at 33486.
+ > Change 33486 by rgs at scipion on 2008/03/12 08:50:11
+ An unfortunate side-effect of Encode and Encode::Alias use'ing each
+ other, and Encode::Alias exporting functions into Encode for it to use
+ as methods, broke the loading of the find_alias() Encode method in some
+ cases since 5.10. Breaking the recursive inheritance fixes it.
+ Message-Id: <b77c1dce0803120151o4166c3a0gfcfd14681ab7e10d at mail.gmail.com>
+! Encode.pm
+ POD fix by tels
+ Message-Id: <200711281835.36125 at bloodgate.com>
+! bin/ucmlint
+ Fix by MIYAGAWA via CodeRepos
+ http://coderepos.org/share/changeset/1791
+! encoding.pm t/mime_header_iso2022jp.t
+ ported back from Perl 5.10-RC1
+
+2.23 2007/05/29 18:15:32
! Encode.xs
got rid of global fallback_cb; encode_method() now takes one more
argument which is a coderef to fallback. This should make
Modified: trunk/libencode-perl/Encode.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libencode-perl/Encode.pm?rev=17465&op=diff
==============================================================================
--- trunk/libencode-perl/Encode.pm (original)
+++ trunk/libencode-perl/Encode.pm Sat Mar 15 04:21:01 2008
@@ -1,10 +1,10 @@
#
-# $Id: Encode.pm,v 2.23 2007/05/29 18:15:32 dankogai Exp dankogai $
+# $Id: Encode.pm,v 2.24 2008/03/12 09:58:12 dankogai Exp dankogai $
#
package Encode;
use strict;
use warnings;
-our $VERSION = sprintf "%d.%02d", q$Revision: 2.23 $ =~ /(\d+)/g;
+our $VERSION = sprintf "%d.%02d", q$Revision: 2.24 $ =~ /(\d+)/g;
sub DEBUG () { 0 }
use XSLoader ();
XSLoader::load( __PACKAGE__, $VERSION );
@@ -734,7 +734,7 @@
=back
-=Head2 coderef for CHECK
+=head2 coderef for CHECK
As of Encode 2.12 CHECK can also be a code reference which takes the
ord value of unmapped caharacter as an argument and returns a string
Modified: trunk/libencode-perl/Encode.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libencode-perl/Encode.xs?rev=17465&op=diff
==============================================================================
--- trunk/libencode-perl/Encode.xs (original)
+++ trunk/libencode-perl/Encode.xs Sat Mar 15 04:21:01 2008
@@ -1,5 +1,5 @@
/*
- $Id: Encode.xs,v 2.14 2007/05/29 18:15:32 dankogai Exp dankogai $
+ $Id: Encode.xs,v 2.14 2007/05/29 18:15:32 dankogai Exp $
*/
#define PERL_NO_GET_CONTEXT
Modified: trunk/libencode-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libencode-perl/MANIFEST?rev=17465&op=diff
==============================================================================
--- trunk/libencode-perl/MANIFEST (original)
+++ trunk/libencode-perl/MANIFEST Sat Mar 15 04:21:01 2008
@@ -90,8 +90,8 @@
t/jperl.t test script
t/ksc5601.enc test data
t/ksc5601.utf test data
+t/mime-header.t test script
t/mime-name.t test script
-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
@@ -141,6 +141,7 @@
ucm/cp855.ucm Unicode Character Map
ucm/cp856.ucm Unicode Character Map
ucm/cp857.ucm Unicode Character Map
+ucm/cp858.ucm Unicode Character Map
ucm/cp860.ucm Unicode Character Map
ucm/cp861.ucm Unicode Character Map
ucm/cp862.ucm Unicode Character Map
Modified: trunk/libencode-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libencode-perl/META.yml?rev=17465&op=diff
==============================================================================
--- trunk/libencode-perl/META.yml (original)
+++ trunk/libencode-perl/META.yml Sat Mar 15 04:21:01 2008
@@ -1,11 +1,12 @@
--- #YAML:1.0
name: Encode
-version: 2.23
+version: 2.24
abstract: ~
license: ~
-generated_by: ExtUtils::MakeMaker version 6.32
+author: ~
+generated_by: ExtUtils::MakeMaker version 6.42
distribution_type: module
requires:
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.2.html
- version: 1.2
+ url: http://module-build.sourceforge.net/META-spec-v1.3.html
+ version: 1.3
Modified: trunk/libencode-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libencode-perl/Makefile.PL?rev=17465&op=diff
==============================================================================
--- trunk/libencode-perl/Makefile.PL (original)
+++ trunk/libencode-perl/Makefile.PL Sat Mar 15 04:21:01 2008
@@ -1,5 +1,5 @@
#
-# $Id: Makefile.PL,v 2.5 2007/05/29 18:15:32 dankogai Exp dankogai $
+# $Id: Makefile.PL,v 2.5 2007/05/29 18:15:32 dankogai Exp $
#
use 5.007003;
use strict;
Modified: trunk/libencode-perl/bin/ucmlint
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libencode-perl/bin/ucmlint?rev=17465&op=diff
==============================================================================
--- trunk/libencode-perl/bin/ucmlint (original)
+++ trunk/libencode-perl/bin/ucmlint Sat Mar 15 04:21:01 2008
@@ -1,10 +1,10 @@
#!/usr/local/bin/perl
#
-# $Id: ucmlint,v 2.1 2006/05/03 18:24:10 dankogai Exp $
+# $Id: ucmlint,v 2.2 2008/03/12 09:51:11 dankogai Exp $
#
use strict;
-our $VERSION = do { my @r = (q$Revision: 2.1 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 2.2 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
use Getopt::Std;
our %Opt;
@@ -30,7 +30,7 @@
}
$| = 1;
-my (%Hdr, %U2E, %E2U);
+my (%Hdr, %U2E, %E2U, %Fallback);
my $in_charmap = 0;
my $nerror = 0;
my $nwarning = 0;
@@ -39,92 +39,94 @@
my ($msg, $level) = @_;
my $lstr;
if ($level == 2){
- $lstr = 'notice';
+ $lstr = 'notice';
}elsif ($level == 1){
- $lstr = 'warning'; $nwarning++;
+ $lstr = 'warning'; $nwarning++;
}else{
- $lstr = 'error'; $nerror++;
+ $lstr = 'error'; $nerror++;
}
print "$ARGV:$lstr in line $.: $msg\n";
}
for $ARGV (@ARGV){
open UCM, $ARGV or die "$ARGV:$!";
- %Hdr = %U2E = %E2U = ();
+ %Hdr = %U2E = %E2U = %Fallback = ();
$in_charmap = $nerror = $nwarning = 0;
$. = 0;
while(<UCM>){
- chomp;
- s/\s*#.*$//o; /^$/ and next;
- if ($_ eq "CHARMAP"){
- $in_charmap = 1;
- for my $must (qw/code_set_name mb_cur_min mb_cur_max/){
- exists $Hdr{$must} or nit "<$must> nonexistent";
+ chomp;
+ s/\s*#.*$//o; /^$/ and next;
+ if ($_ eq "CHARMAP"){
+ $in_charmap = 1;
+ for my $must (qw/code_set_name mb_cur_min mb_cur_max/){
+ exists $Hdr{$must} or nit "<$must> nonexistent";
+ }
+ $Hdr{mb_cur_min} > $Hdr{mb_cur_max}
+ and nit sprintf("mb_cur_min(%d) > mb_cur_max(%d)",
+ $Hdr{mb_cur_min},$Hdr{mb_cur_max});
+ $in_charmap = 1;
+ next;
}
- $Hdr{mb_cur_min} > $Hdr{mb_cur_max}
- and nit sprintf("mb_cur_min(%d) > mb_cur_max(%d)",
- $Hdr{mb_cur_min},$Hdr{mb_cur_max});
- $in_charmap = 1;
- next;
- }
- unless ($in_charmap){
- my($hkey, $hvalue) = /^<(\S+)>\s+[\"\']?([^\"\']+)/o or next;
- $Opt{D} and warn "$hkey => $hvalue";
- if ($hkey eq "code_set_name"){ # name check
- exists $Hdr{code_set_name}
- and nit "Duplicate <code_set_name>: $hkey";
+ unless ($in_charmap){
+ my($hkey, $hvalue) = /^<(\S+)>\s+[\"\']?([^\"\']+)/o or next;
+ $Opt{D} and warn "$hkey => $hvalue";
+ if ($hkey eq "code_set_name"){ # name check
+ exists $Hdr{code_set_name}
+ and nit "Duplicate <code_set_name>: $hkey";
+ }
+ if ($hkey eq "code_set_alias"){ # alias check
+ $hvalue eq $Hdr{code_set_name}
+ and nit qq(alias "$hvalue" is already in <code_set_name>);
+ }
+ $Hdr{$hkey} = $hvalue;
+ }else{
+ my $name = $Hdr{code_set_name};
+ my($unistr, $encstr, $fb) = /^(\S+)\s+(\S+)\s(\S+)/o or next;
+ $Opt{v} and nit $_, 2;
+ my $uni = uniparse($unistr);
+ my $enc = encparse($encstr);
+ $fb =~ /^\|([0123])$/ or nit "malformed fallback: $fb";
+ $fb = $1;
+ $Opt{f} and $fb = 0;
+ unless ($fb == 3){ # check uni -> enc
+ if (exists $U2E{$uni}){
+ nit "dupe encode map: U$uni => $U2E{$uni} and $enc", 1;
+ }else{
+ $U2E{$uni} = $enc;
+ $Fallback{$uni}{$enc} = 1 if $fb == 1;
+ if ($Opt{e}) {
+ my $e = hex2enc($enc);
+ my $u = hex2uni($uni);
+ my $eu = Encode::encode($name, $u);
+ $e eq $eu
+ or nit qq(encode('$name', $uni) != $enc);
+ }
+ }
+ }
+ unless ($fb == 1){ # check enc -> uni
+ if (exists $E2U{$enc}){
+ nit "dupe decode map: $enc => U$E2U{$enc} and U$uni", 1;
+ }else{
+ $E2U{$enc} = $uni;
+ $Fallback{$enc}{$uni} = 1 if $fb == 3;
+ if ($Opt{e}) {
+ my $e = hex2enc($enc);
+ my $u = hex2uni($uni);
+ $Opt{D} and warn "$uni, $enc";
+ my $de = Encode::decode($name, $e);
+ $de eq $u
+ or nit qq(decode('$name', $enc) != $uni);
+ }
+ }
+ }
+ # warn "$uni, $enc, $fb";
}
- if ($hkey eq "code_set_alias"){ # alias check
- $hvalue eq $Hdr{code_set_name}
- and nit qq(alias "$hvalue" is already in <code_set_name>);
- }
- $Hdr{$hkey} = $hvalue;
- }else{
- my $name = $Hdr{code_set_name};
- my($unistr, $encstr, $fb) = /^(\S+)\s+(\S+)\s(\S+)/o or next;
- $Opt{v} and nit $_, 2;
- my $uni = uniparse($unistr);
- my $enc = encparse($encstr);
- $fb =~ /^\|([0123])$/ or nit "malformed fallback: $fb";
- $fb = $1;
- $Opt{f} and $fb = 0;
- unless ($fb == 1){ # check uni -> enc
- if (exists $U2E{$uni}){
- nit "dupe encode map: U$uni => $U2E{$uni} and $enc", 1;
- }else{
- $U2E{$uni} = $enc;
- if ($Opt{e} and $fb != 3) {
- my $e = hex2enc($enc);
- my $u = hex2uni($uni);
- my $eu = Encode::encode($name, $u);
- $e eq $eu
- or nit qq(encode('$name', $uni) != $enc);
- }
- }
- }
- unless ($fb == 3){ # check enc -> uni
- if (exists $E2U{$enc}){
- nit "dupe decode map: $enc => U$E2U{$enc} and U$uni", 1;
- }else{
- $E2U{$enc} = $uni;
- if ($Opt{e} and $fb != 1) {
- my $e = hex2enc($enc);
- my $u = hex2uni($uni);
- $Opt{D} and warn "$uni, $enc";
- my $de = Encode::decode($name, $e);
- $de eq $u
- or nit qq(decode('$name', $enc) != $uni);
- }
- }
- }
- # warn "$uni, $enc, $fb";
- }
}
$in_charmap or nit "Where is CHARMAP?";
checkRT();
printf ("$ARGV: %s error%s found\n",
- ($nerror == 0 ? 'no' : $nerror),
- ($nerror > 1 ? 's' : ''));
+ ($nerror == 0 ? 'no' : $nerror),
+ ($nerror > 1 ? 's' : ''));
}
exit;
@@ -138,14 +140,14 @@
sub checkRT{
for my $uni (keys %E2U){
- my $enc = $U2E{$uni} or next; # okay
- $E2U{$U2E{$uni}} eq $uni or
- nit "RT failure: U$uni => $enc =>U$E2U{$U2E{$uni}}";
+ my $enc = $U2E{$uni} or next; # okay
+ $E2U{$U2E{$uni}} eq $uni or $Fallback{$uni}{$enc} or
+ nit "RT failure: U$uni => $enc =>U$E2U{$U2E{$uni}}";
}
for my $enc (keys %E2U){
- my $uni = $E2U{$enc} or next; # okay
- $U2E{$E2U{$enc}} eq $enc or
- nit "RT failure: $enc => U$uni => $U2E{$E2U{$enc}}";
+ my $uni = $E2U{$enc} or next; # okay
+ $U2E{$E2U{$enc}} eq $enc or $Fallback{$enc}{$uni} or
+ nit "RT failure: $enc => U$uni => $U2E{$E2U{$enc}}";
}
}
@@ -155,8 +157,8 @@
my @u;
push @u, $1 while($str =~ /\G<U(.*?)>/ig);
for my $u (@u){
- $u =~ /^([0-9A-Za-z]+)$/o
- or nit "malformed Unicode character: $u";
+ $u =~ /^([0-9A-Za-z]+)$/o
+ or nit "malformed Unicode character: $u";
}
return join(',', @u);
}
@@ -165,10 +167,10 @@
my $str = shift;
my @e;
for my $e (split /\\x/io, $str){
- $e or next; # first \x
- $e =~ /^([0-9A-Za-z]{1,2})$/io
- or nit "Hex $e in $str is bogus";
- push @e, $1;
+ $e or next; # first \x
+ $e =~ /^([0-9A-Za-z]{1,2})$/io
+ or nit "Hex $e in $str is bogus";
+ push @e, $1;
}
return join(',', @e);
}
Modified: trunk/libencode-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libencode-perl/debian/changelog?rev=17465&op=diff
==============================================================================
--- trunk/libencode-perl/debian/changelog (original)
+++ trunk/libencode-perl/debian/changelog Sat Mar 15 04:21:01 2008
@@ -1,4 +1,4 @@
-libencode-perl (2.23-2) UNRELEASED; urgency=low
+libencode-perl (2.24-1) unstable; urgency=low
[ Damyan Ivanov ]
* debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser
@@ -14,8 +14,9 @@
<ghostbar38 at gmail.com> moved to Uploaders.
- Bumped Standards-Version (no changes).
- Removed homepage link from description.
+ * New upstream release.
- -- Damyan Ivanov <dmn at debian.org> Fri, 07 Dec 2007 13:50:56 +0200
+ -- MartÃn Ferrari <martin.ferrari at gmail.com> Sat, 15 Mar 2008 02:20:47 -0200
libencode-perl (2.23-1) unstable; urgency=low
Modified: trunk/libencode-perl/encoding.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libencode-perl/encoding.pm?rev=17465&op=diff
==============================================================================
--- trunk/libencode-perl/encoding.pm (original)
+++ trunk/libencode-perl/encoding.pm Sat Mar 15 04:21:01 2008
@@ -1,6 +1,6 @@
-# $Id: encoding.pm,v 2.6 2007/04/22 14:56:12 dankogai Exp $
+# $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} =~ /^([^.]+)\.([^.@]+)(@.*)?$/ ) {
( $country_language, $locale_encoding ) = ( $1, $2 );
}
- elsif ( $ENV{LANG} =~ /^([^.]+)\.([^.]+)$/ ) {
+ elsif ( $ENV{LANG} =~ /^([^.]+)\.([^.@]+)(@.*)?$/ ) {
( $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
@@ -620,6 +612,11 @@
width (i.e. double-width for ideographs) and directions (i.e. BIDI for
Arabic and Hebrew).
+=item Thread safety
+
+C<use encoding ...> is not thread-safe (i.e., do not use in threaded
+applications).
+
=back
=head2 The Logic of :locale
Modified: trunk/libencode-perl/lib/Encode/Alias.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libencode-perl/lib/Encode/Alias.pm?rev=17465&op=diff
==============================================================================
--- trunk/libencode-perl/lib/Encode/Alias.pm (original)
+++ trunk/libencode-perl/lib/Encode/Alias.pm Sat Mar 15 04:21:01 2008
@@ -2,8 +2,7 @@
use strict;
use warnings;
no warnings 'redefine';
-use Encode;
-our $VERSION = do { my @r = ( q$Revision: 2.7 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+our $VERSION = do { my @r = ( q$Revision: 2.8 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
sub DEBUG () { 0 }
use base qw(Exporter);
@@ -20,6 +19,7 @@
our %Alias; # cached known aliases
sub find_alias {
+ require Encode;
my $class = shift;
my $find = shift;
unless ( exists $Alias{$find} ) {
@@ -128,6 +128,7 @@
}
sub init_aliases {
+ require Encode;
undef_aliases();
# Try all-lower-case version should all else fails
Modified: trunk/libencode-perl/lib/Encode/Config.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libencode-perl/lib/Encode/Config.pm?rev=17465&op=diff
==============================================================================
--- trunk/libencode-perl/lib/Encode/Config.pm (original)
+++ trunk/libencode-perl/lib/Encode/Config.pm Sat Mar 15 04:21:01 2008
@@ -2,7 +2,7 @@
# Demand-load module list
#
package Encode::Config;
-our $VERSION = do { my @r = ( q$Revision: 2.4 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+our $VERSION = do { my @r = ( q$Revision: 2.5 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
use strict;
use warnings;
@@ -38,6 +38,7 @@
'cp855' => 'Encode::Byte',
'cp856' => 'Encode::Byte',
'cp857' => 'Encode::Byte',
+ 'cp858' => 'Encode::Byte',
'cp860' => 'Encode::Byte',
'cp861' => 'Encode::Byte',
'cp862' => 'Encode::Byte',
Modified: trunk/libencode-perl/t/mime_header_iso2022jp.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libencode-perl/t/mime_header_iso2022jp.t?rev=17465&op=diff
==============================================================================
--- trunk/libencode-perl/t/mime_header_iso2022jp.t (original)
+++ trunk/libencode-perl/t/mime_header_iso2022jp.t Sat Mar 15 04:21:01 2008
@@ -1,5 +1,13 @@
-use Test::More tests => 14;
+use Test::More;
+
+BEGIN {
+ if( ord("A") == 193 ) {
+ plan skip_all => 'No Encode::MIME::Header::ISO_2022_JP on EBCDIC Platforms';
+ } else {
+ plan tests => 14;
+ }
+}
use strict;
use Encode;
Modified: trunk/libencode-perl/ucm/macJapanese.ucm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libencode-perl/ucm/macJapanese.ucm?rev=17465&op=diff
==============================================================================
--- trunk/libencode-perl/ucm/macJapanese.ucm (original)
+++ trunk/libencode-perl/ucm/macJapanese.ucm Sat Mar 15 04:21:01 2008
@@ -1,5 +1,5 @@
#
-# $Id: macJapanese.ucm,v 2.0 2004/05/16 20:55:27 dankogai Exp $
+# $Id: macJapanese.ucm,v 2.1 2008/03/12 09:51:11 dankogai Exp $
#
# Original table can be obtained at
# http://www.unicode.org/Public/MAPPINGS/VENDORS/APPLE/JAPANESE.TXT
@@ -135,7 +135,7 @@
<U007B> \x7B |0 # LEFT CURLY BRACKET
<U007C> \x7C |0 # VERTICAL LINE
<U007D> \x7D |0 # RIGHT CURLY BRACKET
-<U007E> \x7E |0 # TILDE # Apple change from standard Shift-JIS
+<U007E> \x7E |0 # TILDE # Apple change from standard Shift_JIS
<U00A0> \xA0 |0 # NO-BREAK SPACE # Apple addition
<U00A2> \x81\x91 |0 # CENT SIGN
<U00A3> \x81\x92 |0 # POUND SIGN
More information about the Pkg-perl-cvs-commits
mailing list