diff options
author | Karl Williamson <public@khwilliamson.com> | 2012-05-23 17:14:36 -0600 |
---|---|---|
committer | Ricardo Signes <rjbs@cpan.org> | 2012-06-24 18:28:57 -0400 |
commit | aee5aa0f53d48b3ae669da494c27429245683ef1 (patch) | |
tree | 2f0cd4d3debd416356bafe7a02832c6ddf22ddf0 | |
parent | e3f8b48d8ac81e4fd26815dfab45a4a828c9dfbf (diff) | |
download | perl-aee5aa0f53d48b3ae669da494c27429245683ef1.tar.gz |
mktables: Handle typo in Unicode 6.1 data file
Unicode has published a correction to their data files for version 6.1.
This patch applies that correction.
-rw-r--r-- | lib/Unicode/UCD.t | 3 | ||||
-rw-r--r-- | lib/unicore/mktables | 3 | ||||
-rw-r--r-- | pod/perldelta.pod | 7 |
3 files changed, 13 insertions, 0 deletions
diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t index 638a1d8ac6..2e5a741f0f 100644 --- a/lib/Unicode/UCD.t +++ b/lib/Unicode/UCD.t @@ -708,6 +708,9 @@ while (<$propvalues>) { next if /^\s* $/x; # Ignore empty and comment lines chomp; + # Fix typo in official input file + s/CCC133/CCC132/g if $version eq "6.1.0"; + my @fields = split /\s*;\s*/; # Fields are separated by semi-colons my $prop = shift @fields; # 0th field is the property, my $count = 0; # 0th field in line (after shifting off the property) is diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 7eba4f9a35..458d4ec26d 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -9156,6 +9156,9 @@ sub process_PropValueAliases { # Process each line of the file ... while ($file->next_line) { + # Fix typo in input file + s/CCC133/CCC132/g if $v_version eq v6.1.0; + my ($property, @data) = split /\s*;\s*/; # The ccc property has an extra field at the beginning, which is the diff --git a/pod/perldelta.pod b/pod/perldelta.pod index 67c5456bd8..5fbbf7d41c 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -4160,6 +4160,13 @@ started [perl #37033]. C<< die; >> with a non-reference, non-string, or magical (e.g., tainted) value in $@ now properly propagates that value [perl #111654]. +=item * + +Unicode 6.1 published an incorrect alias for one of the +Canonical_Combining_Class property's values (which range between 0 and +254). The alias C<CCC133> should have been C<CCC132>. Perl now +overrides the data file furnished by Unicode to give the correct value. + =back =head1 Known Problems |