This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8_heavy.pl: Remove no longer needed code
authorKarl Williamson <public@khwilliamson.com>
Sat, 5 Nov 2011 17:50:59 +0000 (11:50 -0600)
committerKarl Williamson <public@khwilliamson.com>
Tue, 8 Nov 2011 15:09:35 +0000 (08:09 -0700)
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

lib/utf8_heavy.pl

index c3ddf88..f1029ea 100644 (file)
@@ -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.