diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-03-03 18:00:08 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-03-03 19:26:17 -0700 |
| commit | f3d50ac98736b7b6864856ac20359ed14bee064f (patch) | |
| tree | 27947a7cae339b2c6690f12e00184383eba01ec4 | |
| parent | eb01e50bb8634515813de5d0b3d41067d81d8bf7 (diff) | |
| download | perl-f3d50ac98736b7b6864856ac20359ed14bee064f.tar.gz | |
UCD.pm: Use traditional casing for script names
For some reason UCD.pm has lowercased the first letters of the
non-first word in script names. For backwards compatibility, continue
to do so.
| -rw-r--r-- | lib/Unicode/UCD.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Unicode/UCD.pm b/lib/Unicode/UCD.pm index debb24097e..86aaa74664 100644 --- a/lib/Unicode/UCD.pm +++ b/lib/Unicode/UCD.pm @@ -553,6 +553,7 @@ my %SCRIPTS; sub _charscripts { @SCRIPTS =_read_table("unicore/To/Sc.pl") unless @SCRIPTS; foreach my $entry (@SCRIPTS) { + $entry->[2] =~ s/(_\w)/\L$1/g; # Preserve old-style casing push @{$SCRIPTS{$entry->[2]}}, $entry; } } |