diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-11-05 11:50:59 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-11-08 08:09:35 -0700 |
| commit | 690e7fb9d6d7630607c8def90021fa2a625949d6 (patch) | |
| tree | 8d664f63949d3ffe186db67b7e4225221df77fc5 /lib | |
| parent | 7dd21db75abd139d2252f64cb3ffa894adafa936 (diff) | |
| download | perl-690e7fb9d6d7630607c8def90021fa2a625949d6.tar.gz | |
utf8_heavy.pl: Remove no longer needed code
Previous commits have extended the capabilities of utf8_heavy to handle
any mapping file generated by mktables, and have changed the names of
the maps to look up in utf8.c to correspond to the mktables names. We
thus, no longer need code that knows the names of those properties,
using the more general mechanism instead
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/utf8_heavy.pl | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index c3ddf88a55..f1029ea96e 100644 --- a/lib/utf8_heavy.pl +++ b/lib/utf8_heavy.pl @@ -424,11 +424,6 @@ sub _loose_name ($) { ## # Only check if caller wants non-binary if ($minbits != 1 && $property_and_table =~ s/^to//) { - if ($type =~ /^To(Digit|Fold|Lower|Title|Upper)$/) { - $file = "$unicore_dir/To/$1.pl"; - ## would like to test to see if $file actually exists.... - last GETFILE; - } # Look input up in list of properties for which we have # mapping files. |