This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: Mark two internal tables as such
authorKarl Williamson <public@khwilliamson.com>
Wed, 12 Oct 2011 02:05:52 +0000 (20:05 -0600)
committerKarl Williamson <public@khwilliamson.com>
Tue, 8 Nov 2011 15:09:26 +0000 (08:09 -0700)
lib/unicore/mktables

index 07c7da7..d83aeb0 100644 (file)
@@ -11593,7 +11593,8 @@ sub compile_perl() {
 
     # Our internal-only property should be treated as more than just a
     # synonym; grandfather it in to the pod.
-    $perl->add_match_table('_CombAbove', Re_Pod_Entry => 1, Status => $DISCOURAGED)
+    $perl->add_match_table('_CombAbove', Re_Pod_Entry => 1,
+                            Fate => $INTERNAL_ONLY, Status => $DISCOURAGED)
             ->set_equivalent_to(property_ref('ccc')->table('Above'),
                                                                 Related => 1);
 
@@ -11687,7 +11688,9 @@ sub compile_perl() {
     # Perl has long had an internal-only alias for this property; grandfather
     # it in to the pod, but discourage its use.
     my $perl_case_ignorable = $perl->add_match_table('_Case_Ignorable',
-                            Re_Pod_Entry => 1, Status => $DISCOURAGED);
+                                                     Re_Pod_Entry => 1,
+                                                     Fate => $INTERNAL_ONLY,
+                                                     Status => $DISCOURAGED);
     my $case_ignorable = property_ref('Case_Ignorable');
     if (defined $case_ignorable && ! $case_ignorable->is_empty) {
         $perl_case_ignorable->set_equivalent_to($case_ignorable->table('Y'),