diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2015-07-17 11:46:14 +0300 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2015-07-22 08:33:21 -0400 |
commit | 16bc0f484029674886960a735bef3fa497aeb6de (patch) | |
tree | 6d7263c83f4d8dfbb446fa6e824c56349d7cf922 | |
parent | 23fd77c01aafa1987698dc47bed34bd342178516 (diff) | |
download | perl-16bc0f484029674886960a735bef3fa497aeb6de.tar.gz |
mg_names.c -> mg_names.inc
-rw-r--r-- | MANIFEST | 2 | ||||
-rw-r--r-- | dump.c | 2 | ||||
-rw-r--r-- | mg_names.inc (renamed from mg_names.c) | 2 | ||||
-rw-r--r-- | regen/mg_vtable.pl | 4 |
4 files changed, 5 insertions, 5 deletions
@@ -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 @@ -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 }, }; diff --git a/mg_names.c b/mg_names.inc index 57d52db298..fde6872fa9 100644 --- a/mg_names.c +++ b/mg_names.inc @@ -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! diff --git a/regen/mg_vtable.pl b/regen/mg_vtable.pl index 46dce97c91..a05a7d4146 100644 --- a/regen/mg_vtable.pl +++ b/regen/mg_vtable.pl @@ -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'; |