diff options
| author | Karl Williamson <public@khwilliamson.com> | 2010-11-19 09:46:54 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-11-19 14:34:50 -0800 |
| commit | 484741e121917d8979d45f886da5d146507d7f6d (patch) | |
| tree | 11b3168e80a264d952268cae46b967cadd8da7a6 /lib | |
| parent | 0e4296004c227247fbf83f8f9969660bba2ed2cf (diff) | |
| download | perl-484741e121917d8979d45f886da5d146507d7f6d.tar.gz | |
Add Unicode's minor 6.0 correction
Unicode just released a minor correction to 6.0. This patch adds that.
Unfortunately, a test thought the old behavior was correct, and so had
to be modified as well.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/unicore/mktables | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index a8209cf748..042fb94834 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -10153,12 +10153,16 @@ END # allow the BELL name for U+1F514, so that the old usage can be # deprecated for one cycle. - return if $_ !~ /^(?:0007|1F514);/; + return if $_ !~ /^(?:0007|1F514|070F);/; my ($code_point, @fields) = split /\s*;\s*/, $_, -1; if ($code_point eq '0007') { $fields[$CHARNAME] = "ALERT"; } + elsif ($code_point eq '070F') { # Unicode Corrigendum #8; see + # http://www.unicode.org/versions/corrigendum8.html + $fields[$BIDI] = "AL"; + } elsif ($^V lt v5.15.0) { # For 5.16 will convert to use Unicode's name $fields[$CHARNAME] = ""; } |