diff options
author | Karl Williamson <khw@cpan.org> | 2017-12-23 14:37:37 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2017-12-24 17:12:03 -0700 |
commit | 435d123b72220fd2ede9508e2a4dd357b9e0e806 (patch) | |
tree | 748db7e3cb274f59cfb5aecc51ac008b861cf9c7 /lib | |
parent | cdc243dd1df9966473a3b0f622a5872f5d4bcb1b (diff) | |
download | perl-435d123b72220fd2ede9508e2a4dd357b9e0e806.tar.gz |
mktables: Canonicalize '-' into '_'
Some early Unicode releases used a hyphen instead of an underscore in
script names. This changes all into underscores
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 57c2e431ad..8877535109 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -13655,7 +13655,7 @@ sub filter_all_caps_script_names { my ($range, $script, @remainder) = split /\s*;\s*/, $_, -1; # -1 => retain trailing null fields - my @words = split "_", $script; + my @words = split /[_-]/, $script; for my $word (@words) { $word = ucfirst(lc($word)) if $word ne 'CJK'; |