diff options
| author | Karl Williamson <public@khwilliamson.com> | 2010-11-18 21:01:26 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-11-19 14:34:50 -0800 |
| commit | 0e4296004c227247fbf83f8f9969660bba2ed2cf (patch) | |
| tree | aa2e7b348f9348ee7567a5551a6a9fe4a756088e /lib | |
| parent | f860d37cac7c321a6bf8bd1fea3dda29320351b1 (diff) | |
| download | perl-0e4296004c227247fbf83f8f9969660bba2ed2cf.tar.gz | |
mktables: Leave Unicode1 BELL name alone
It occurred to me that I was changing both the name and Unicode 1 name
fields, and only the name field is in conflict. So change just it.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/unicore/mktables | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index d34b94dad0..a8209cf748 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -10157,7 +10157,7 @@ END my ($code_point, @fields) = split /\s*;\s*/, $_, -1; if ($code_point eq '0007') { - $fields[$UNICODE_1_NAME] = "ALERT"; + $fields[$CHARNAME] = "ALERT"; } elsif ($^V lt v5.15.0) { # For 5.16 will convert to use Unicode's name $fields[$CHARNAME] = ""; |