This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: Rmv redundant checks
authorKarl Williamson <public@khwilliamson.com>
Tue, 4 Oct 2011 19:41:00 +0000 (13:41 -0600)
committerKarl Williamson <public@khwilliamson.com>
Tue, 8 Nov 2011 15:09:22 +0000 (08:09 -0700)
This code was just copied to its new location.  It will only be used
once, so don't need to check that it's for the correct properties, and a
line just above also checked that it's needed or not, so the whole if
can be removed

lib/unicore/mktables

index 27cdc2b..a89be17 100644 (file)
@@ -13909,11 +13909,6 @@ $HEADER
 $INTERNAL_ONLY
 END
         my $pre_body = "";
-        # Only write out to files that need them
-        if (($has_hangul_syllables || @code_points_ending_in_code_point)
-             && ($self->property == $perl_charname
-                 ||$self->property == main::property_ref('Name')))
-        {
 
             # Convert these structures to output format.
             my $code_points_ending_in_code_point =
@@ -14144,7 +14139,6 @@ END
 } # End closure
 
 END
-        } # End of has hangul or code point in name maps.
 
     main::write("Name.pm", 0, \@name);  # The 0 means no utf8.
     return;