diff options
| author | Karl Williamson <public@khwilliamson.com> | 2010-10-09 14:56:46 -0600 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-10-12 13:41:48 -0700 |
| commit | 69809be0040423af044e2fbb9bff45dcff39e4c3 (patch) | |
| tree | 6c6ae4a2a1075f7b026f0ef6579fd565e95eabb6 /lib | |
| parent | d7078fb7eb2e34db4cceb513aadbd2caee8513b2 (diff) | |
| download | perl-69809be0040423af044e2fbb9bff45dcff39e4c3.tar.gz | |
mktables: Remove commented out obsolete code
This functionality is now in charnames.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/unicore/mktables | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index cf2677a99b..5a1ba7a9a5 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -11180,27 +11180,6 @@ END $comment .= ", and $composition[-1]"; } - # Wait for charnames to catch up -# foreach my $entry (@more_Names, -# split "\n", <<"END" -#000A; LF -#000C; FF -#000D; CR -#0085; NEL -#200C; ZWNJ -#200D; ZWJ -#FEFF; BOM -#FEFF; BYTE ORDER MARK -#END -# ) { -# #local $to_trace = 1 if main::DEBUG; -# trace $entry if main::DEBUG && $to_trace; -# my ($code_point, $name) = split /\s*;\s*/, $entry; -# $code_point = hex $code_point; -# trace $code_point, $name if main::DEBUG && $to_trace; -# $perl_charname->add_duplicate($code_point, $name); -# } -# #$perl_charname->add_comment("This file is for charnames.pm. It is the union of the $comment properties, plus certain commonly used but unofficial names, such as 'FF' and 'ZWNJ'. Unicode_1_Name entries are used only for otherwise nameless code points.$alias_sentence"); $perl_charname->add_comment(join_lines( <<END This file is for charnames.pm. It is the union of the $comment properties. Unicode_1_Name entries are used only for otherwise nameless code |