diff options
Diffstat (limited to 'lib/Unicode/UCD.pm')
| -rw-r--r-- | lib/Unicode/UCD.pm | 38 |
1 files changed, 36 insertions, 2 deletions
diff --git a/lib/Unicode/UCD.pm b/lib/Unicode/UCD.pm index 4e310e7c1c..6c20d4066d 100644 --- a/lib/Unicode/UCD.pm +++ b/lib/Unicode/UCD.pm @@ -174,9 +174,9 @@ sub charblock { my $code = shift; unless (@BLOCKS) { - if (openunicode(\$BLOCKS, "Blocks.pl")) { + if (openunicode(\$BLOCKS, "Blocks.txt")) { while (<$BLOCKS>) { - if (/^([0-9A-F]+)\s+([0-9A-F]+)\s+(.+)/) { + if (/^([0-9A-F]+)\.\.([0-9A-F]+);\s+(.+)/) { push @BLOCKS, [ hex($1), hex($2), $3 ]; } } @@ -241,6 +241,40 @@ Note also that the script names are all in uppercase, e.g. C<HEBREW>, while the block names are Capitalized and with intermixed spaces, e.g. C<Yi Syllables>. +Greek +Cyrillic +Armenian +Hebrew +Arabic +Syriac +Thaana +Devanagari +Bengali +Gurmukhi +Gujarati +Oriya +Tamil +Telugu +Kannada +Malayalam +Sinhala +Thai +Lao +Tibetan +Myanmar +Georgian +Ethiopic +Cherokee +Ogham +Runic +Khmer +Hiragana +Katakana +Bopomofo +OldItalic +Gothic +Deseret + =head1 IMPLEMENTATION NOTE The first use of charinfo() opens a read-only filehandle to the Unicode |