diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-19 00:21:07 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-19 00:21:07 +0000 |
| commit | a6da3000f891055d63501a206d4a09ca94f64209 (patch) | |
| tree | 456dab4966631544994f2cb13c7921a0d78a80d4 /lib/unicore/mktables | |
| parent | d0e2cf6390c2ab73adcabc3831e68e4987791f31 (diff) | |
| download | perl-a6da3000f891055d63501a206d4a09ca94f64209.tar.gz | |
No need to store identity mappings.
p4raw-id: //depot/perl@14757
Diffstat (limited to 'lib/unicore/mktables')
| -rw-r--r-- | lib/unicore/mktables | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 0ca6dcdaf0..2caf287c11 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -1635,9 +1635,12 @@ sub SpecialCasing_txt() # Wait until all the special cases have been read since # they are not listed in numeric order. my $ix = hex($code); - push @{$CaseInfo{Lower}}, [ $ix, $code, $lower ]; - push @{$CaseInfo{Title}}, [ $ix, $code, $title ]; - push @{$CaseInfo{Upper}}, [ $ix, $code, $upper ]; + push @{$CaseInfo{Lower}}, [ $ix, $code, $lower ] + unless $code eq $lower; + push @{$CaseInfo{Title}}, [ $ix, $code, $title ] + unless $code eq $title; + push @{$CaseInfo{Upper}}, [ $ix, $code, $upper ] + unless $code eq $upper; } close IN; |