This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mg_names.c -> mg_names.inc
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 17 Jul 2015 08:46:14 +0000 (11:46 +0300)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 22 Jul 2015 12:33:21 +0000 (08:33 -0400)
MANIFEST
dump.c
mg_names.inc [moved from mg_names.c with 99% similarity]
regen/mg_vtable.pl

index 814074b..2b7cab5 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -4385,7 +4385,7 @@ META.json                 Distribution meta-data in JSON
 META.yml                       Distribution meta-data in YAML
 mg.c                           Magic code
 mg.h                           Magic header
-mg_names.c                     Generated magic names used by dump.c
+mg_names.inc                   Generated magic names used by dump.c
 mg_raw.h                       Generated magic data used by generate_uudmap.c
 mg_vtable.h                    Generated magic vtable data
 miniperlmain.c                 Basic perl w/o dynamic loading or extensions
diff --git a/dump.c b/dump.c
index c4d4018..7369a9a 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -1116,7 +1116,7 @@ Perl_gv_dump(pTHX_ GV *gv)
  */
 
 static const struct { const char type; const char *name; } magic_names[] = {
-#include "mg_names.c"
+#include "mg_names.inc"
        /* this null string terminates the list */
        { 0,                         NULL },
 };
similarity index 99%
rename from mg_names.c
rename to mg_names.inc
index 57d52db..fde6872 100644 (file)
@@ -1,6 +1,6 @@
 /* -*- buffer-read-only: t -*-
  *
- *    mg_names.c
+ *    mg_names.inc
  * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
  * This file is built by regen/mg_vtable.pl.
  * Any changes made here will be lost!
index 46dce97..a05a7d4 100644 (file)
@@ -2,7 +2,7 @@
 #
 # Regenerate (overwriting only if changed):
 #
-#    mg_names.c
+#    mg_names.inc
 #    mg_raw.h
 #    mg_vtable.h
 #    pod/perlguts.pod
@@ -155,7 +155,7 @@ my %sig =
 my ($vt, $raw, $names) = map {
     open_new($_, '>',
             { by => 'regen/mg_vtable.pl', file => $_, style => '*' });
-} 'mg_vtable.h', 'mg_raw.h', 'mg_names.c';
+} 'mg_vtable.h', 'mg_raw.h', 'mg_names.inc';
 my $guts = open_new("pod/perlguts.pod", ">");
 
 print $vt <<'EOH';