diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-21 19:16:00 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-21 19:16:00 +0000 |
| commit | 551b6b6ff9895983c94b1aff97abae5f0914a105 (patch) | |
| tree | 8b27bada3e52ba364cbe8eb1d341d2e14014b8eb /lib/Unicode | |
| parent | 1faa7c87e80ec7422c7d30d8f9e68527782f5953 (diff) | |
| download | perl-551b6b6ff9895983c94b1aff97abae5f0914a105.tar.gz | |
Undo the renaming of the Unicode data files; the simple
solution being not including the *.html files. This means
that in the future there is no need for any renamings
(well, assuming that the Consortium doesn't cause any),
and the files are named like they are in the Consortium
website, thus alleviating confusion.
p4raw-id: //depot/perl@14370
Diffstat (limited to 'lib/Unicode')
| -rw-r--r-- | lib/Unicode/UCD.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/Unicode/UCD.pm b/lib/Unicode/UCD.pm index b239c16fc1..9dabc5dec6 100644 --- a/lib/Unicode/UCD.pm +++ b/lib/Unicode/UCD.pm @@ -204,7 +204,7 @@ sub charinfo { last; } } - openunicode(\$UNICODEFH, "Unicode.txt"); + openunicode(\$UNICODEFH, "UnicodeData.txt"); if (defined $UNICODEFH) { use Search::Dict 1.02; if (look($UNICODEFH, "$hexk;", { xfrm => sub { $_[0] =~ /^([^;]+);(.+)/; sprintf "%06X;$2", hex($1) } } ) >= 0) { @@ -492,7 +492,7 @@ my %COMPEXCL; sub _compexcl { unless (%COMPEXCL) { - if (openunicode(\$COMPEXCLFH, "CompExcl.txt")) { + if (openunicode(\$COMPEXCLFH, "CompositionExclusions.txt")) { while (<$COMPEXCLFH>) { if (/^([0-9A-F]+) \# /) { my $code = hex($1); @@ -562,7 +562,7 @@ my %CASEFOLD; sub _casefold { unless (%CASEFOLD) { - if (openunicode(\$CASEFOLDFH, "CaseFold.txt")) { + if (openunicode(\$CASEFOLDFH, "CaseFolding.txt")) { while (<$CASEFOLDFH>) { if (/^([0-9A-F]+); ([CFSI]); ([0-9A-F]+(?: [0-9A-F]+)*);/) { my $code = hex($1); @@ -642,7 +642,7 @@ my %CASESPEC; sub _casespec { unless (%CASESPEC) { - if (openunicode(\$CASESPECFH, "SpecCase.txt")) { + if (openunicode(\$CASESPECFH, "SpecialCasing.txt")) { while (<$CASESPECFH>) { if (/^([0-9A-F]+); ([0-9A-F]+(?: [0-9A-F]+)*)?; ([0-9A-F]+(?: [0-9A-F]+)*)?; ([0-9A-F]+(?: [0-9A-F]+)*)?; (\w+(?: \w+)*)?/) { my ($hexcode, $lower, $title, $upper, $condition) = @@ -669,7 +669,7 @@ sub _casespec { upper => $oldupper, condition => $oldcondition }; } else { - warn __PACKAGE__, ": SpecCase.txt:", $., ": No oldlocale for 0x$hexcode\n" + warn __PACKAGE__, ": SpecialCasing.txt:", $., ": No oldlocale for 0x$hexcode\n" } } my ($locale) = |