diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-04-24 09:46:18 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-05-18 11:15:07 -0600 |
| commit | 4efcc33b5ae4ac58c87720e574df085b530f2b22 (patch) | |
| tree | 49ab5d9aeff4beead9090d2deef9e2ba18f3a895 | |
| parent | 9e808deb94f82e68c20aaf09ea8e8b4f0ec528d3 (diff) | |
| download | perl-4efcc33b5ae4ac58c87720e574df085b530f2b22.tar.gz | |
perluniprops: AHex and PosixXDigit are identical
| -rw-r--r-- | lib/unicore/mktables | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 59267d2358..05f9b848ab 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -11632,10 +11632,17 @@ sub compile_perl() { 0xFF10..0xFF19, 0xFF21..0xFF26, 0xFF41..0xFF46]); $Xdigit->add_description('[0-9A-Fa-f] and corresponding fullwidth versions, like U+FF10: FULLWIDTH DIGIT ZERO'); } - $perl->add_match_table('PosixXDigit', - Initialize => $ASCII & $Xdigit, - Description => '[0-9A-Fa-f]', - ); + + # AHex was not present in early releases + my $PosixXDigit = $perl->add_match_table('PosixXDigit'); + my $AHex = property_ref('ASCII_Hex_Digit'); + if (defined $AHex && ! $AHex->is_empty) { + $PosixXDigit->set_equivalent_to($AHex->table('Y'), Related => 1); + } + else { + $PosixXDigit->initialize($Xdigit & $ASCII); + } + $PosixXDigit->add_description('[0-9A-Fa-f]'); my $dt = property_ref('Decomposition_Type'); $dt->add_match_table('Non_Canon', Full_Name => 'Non_Canonical', |