This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: Generate empty Name.pm
authorKarl Williamson <public@khwilliamson.com>
Tue, 4 Oct 2011 15:57:35 +0000 (09:57 -0600)
committerKarl Williamson <public@khwilliamson.com>
Tue, 8 Nov 2011 15:09:21 +0000 (08:09 -0700)
This file in later commits will take over portions of Name.pl

lib/unicore/Makefile
lib/unicore/mktables

index 17072ed..aea8f78 100644 (file)
@@ -2,5 +2,5 @@ all:
        ../../miniperl -I../../lib ./mktables -P ../../pod -maketest -makelist -p
 
 clean:
-       rm -fr *.pl To lib
+       rm -fr *.pl *.pm To lib
        rm -f ../../pod/perluniprops.pod mktables.lst
index 1ac8e7a..77c1066 100644 (file)
@@ -13872,6 +13872,20 @@ END
     return;
 }
 
+sub make_Name_pm () {
+    # Create and write Name.pm, which will contain subroutines and data to use in
+    # conjunction with Name.pl
+
+    my @name = <<END;
+$HEADER
+$INTERNAL_ONLY
+END
+
+    main::write("Name.pm", 0, \@name);  # The 0 means no utf8.
+    return;
+}
+
+
 sub write_all_tables() {
     # Write out all the tables generated by this program to files, as well as
     # the supporting data structures, pod file, and .t file.
@@ -14240,8 +14254,9 @@ sub write_all_tables() {
     # Write out the pod file
     make_pod;
 
-    # And Heavy.pl
+    # And Heavy.pl, Name.pm
     make_Heavy;
+    make_Name_pm;
 
     make_property_test_script() if $make_test_script;
     return;