This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: Leave Unicode1 BELL name alone
authorKarl Williamson <public@khwilliamson.com>
Fri, 19 Nov 2010 04:01:26 +0000 (21:01 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 19 Nov 2010 22:34:50 +0000 (14:34 -0800)
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.

lib/unicore/mktables

index d34b94d..a8209cf 100644 (file)
@@ -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] = "";