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.

diff --git a/lib/Unicode/UCD.pm b/lib/Unicode/UCD.pm
index debb240..86aaa74 100644 (file)
--- 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;
     }
 }