diff options
| author | Karl Williamson <khw@cpan.org> | 2019-08-30 14:19:18 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2019-09-02 21:52:11 -0600 |
| commit | f2f5335a6e711461442e771620a1365dee53721c (patch) | |
| tree | ecb2a127996dc9cf5b6bb94412793d806f6a8ca4 /regen | |
| parent | d78a5caa85b65d42bbf69df8d66aca78bcfdc3cf (diff) | |
| download | perl-f2f5335a6e711461442e771620a1365dee53721c.tar.gz | |
Note that PERL_MAGIC_foo are documented
Diffstat (limited to 'regen')
| -rw-r--r-- | regen/mg_vtable.pl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/regen/mg_vtable.pl b/regen/mg_vtable.pl index f5213b2c21..04dde48269 100644 --- a/regen/mg_vtable.pl +++ b/regen/mg_vtable.pl @@ -200,8 +200,10 @@ EOH $mg_order{(uc $byte) . $byte} = $name; } my @rows; + my @names; foreach (sort keys %mg_order) { my $name = $mg_order{$_}; + push @names, $name; my $data = $mg{$name}; my $i = ord $data->{char}; unless ($data->{unknown_to_sv_magic}) { @@ -272,7 +274,10 @@ EOH printf $format, $type, $vtbl, $desc; printf $format, '', '', $_ foreach @cont; } - print "\n"; + print "\n\n"; + + print "=for apidoc Amnh||PERL_MAGIC_$_\n" for @names; + print "\n"; while (<$oldguts>) { last if /^=for mg_vtable.pl end/; |