diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-05-23 17:14:36 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-05-23 17:34:35 -0600 |
| commit | 74090492482072d50f5959166691cb46c3cc780c (patch) | |
| tree | 9e4564011de58bb9e7460cc051e8326974f7a56b | |
| parent | 7881e901b6bb688f23c76851cb304a74052929ea (diff) | |
| download | perl-74090492482072d50f5959166691cb46c3cc780c.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 |
2 files changed, 6 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 a6f72255ca..5f3b6ff63f 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -9207,6 +9207,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 |