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.

diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t
index 638a1d8..2e5a741 100644 (file)
--- 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 7eba4f9..458d4ec 100644 (file)
--- 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 67c5456..5fbbf7d 100644 (file)
--- 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