This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: Change generated file comment
authorKarl Williamson <public@khwilliamson.com>
Sat, 28 Jan 2012 16:26:29 +0000 (09:26 -0700)
committerKarl Williamson <public@khwilliamson.com>
Sat, 4 Feb 2012 23:29:31 +0000 (16:29 -0700)
All the files that mktables generates that are for external-to-core use
have now been changed so that the code requests explicitly for each that
they have the comment that says they are for external use, but it is
deprecated to use them.  That means that any files that haven't been so
explicitly set should have the comment instead that says they are for
internal use only.

lib/unicore/mktables

index 3909483..e272974 100644 (file)
@@ -5984,8 +5984,10 @@ sub trace { return main::trace(@_); }
         # Don't want to output binary map tables even for debugging.
         return 0 if $type == $BINARY;
 
-        # But do want to output string ones.
-        return $EXTERNAL_MAP if $type == $STRING;
+        # But do want to output string ones.  All the ones that remain to
+        # be dealt with (i.e. which haven't explicitly been set to external)
+        # are for internal Perl use only.
+        return $INTERNAL_MAP if $type == $STRING;
 
         # Otherwise is an $ENUM, do output it, for Perl's purposes
         return $INTERNAL_MAP;