This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables; Use variable instead of hard-coded name
authorKarl Williamson <public@khwilliamson.com>
Thu, 6 Oct 2011 04:15:52 +0000 (22:15 -0600)
committerKarl Williamson <public@khwilliamson.com>
Tue, 8 Nov 2011 15:09:23 +0000 (08:09 -0700)
Earlier commits changed the properties that are to be internal-only to
have that flagged.  Now use that instead of relying on the name
beginning with an underscore.

lib/unicore/mktables

index 2d5fe29..59cf812 100644 (file)
@@ -4630,7 +4630,7 @@ sub trace { return main::trace(@_); }
 
         # Don't list a property by default that is internal only
         $make_re_pod_entry = 0 if ! defined $make_re_pod_entry
-                               && $name{$addr} =~ /^_/;
+                                  && $internal_only{$addr};
 
         # By convention what typically gets printed only or first is what's
         # first in the list, so put the full name there for good output