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 | |
| parent | d78a5caa85b65d42bbf69df8d66aca78bcfdc3cf (diff) | |
| download | perl-f2f5335a6e711461442e771620a1365dee53721c.tar.gz | |
Note that PERL_MAGIC_foo are documented
| -rw-r--r-- | pod/perlguts.pod | 46 | ||||
| -rw-r--r-- | regen/mg_vtable.pl | 7 |
2 files changed, 52 insertions, 1 deletions
diff --git a/pod/perlguts.pod b/pod/perlguts.pod index e16885bcc2..e4a84c5e93 100644 --- a/pod/perlguts.pod +++ b/pod/perlguts.pod @@ -1285,6 +1285,52 @@ will be lost. ~ PERL_MAGIC_ext (none) Available for use by extensions + +=for apidoc Amnh||PERL_MAGIC_sv +=for apidoc Amnh||PERL_MAGIC_arylen +=for apidoc Amnh||PERL_MAGIC_rhash +=for apidoc Amnh||PERL_MAGIC_debugvar +=for apidoc Amnh||PERL_MAGIC_pos +=for apidoc Amnh||PERL_MAGIC_symtab +=for apidoc Amnh||PERL_MAGIC_backref +=for apidoc Amnh||PERL_MAGIC_arylen_p +=for apidoc Amnh||PERL_MAGIC_bm +=for apidoc Amnh||PERL_MAGIC_overload_table +=for apidoc Amnh||PERL_MAGIC_regdata +=for apidoc Amnh||PERL_MAGIC_regdatum +=for apidoc Amnh||PERL_MAGIC_env +=for apidoc Amnh||PERL_MAGIC_envelem +=for apidoc Amnh||PERL_MAGIC_fm +=for apidoc Amnh||PERL_MAGIC_regex_global +=for apidoc Amnh||PERL_MAGIC_hints +=for apidoc Amnh||PERL_MAGIC_hintselem +=for apidoc Amnh||PERL_MAGIC_isa +=for apidoc Amnh||PERL_MAGIC_isaelem +=for apidoc Amnh||PERL_MAGIC_nkeys +=for apidoc Amnh||PERL_MAGIC_dbfile +=for apidoc Amnh||PERL_MAGIC_dbline +=for apidoc Amnh||PERL_MAGIC_shared +=for apidoc Amnh||PERL_MAGIC_shared_scalar +=for apidoc Amnh||PERL_MAGIC_collxfrm +=for apidoc Amnh||PERL_MAGIC_tied +=for apidoc Amnh||PERL_MAGIC_tiedelem +=for apidoc Amnh||PERL_MAGIC_tiedscalar +=for apidoc Amnh||PERL_MAGIC_qr +=for apidoc Amnh||PERL_MAGIC_sig +=for apidoc Amnh||PERL_MAGIC_sigelem +=for apidoc Amnh||PERL_MAGIC_taint +=for apidoc Amnh||PERL_MAGIC_uvar +=for apidoc Amnh||PERL_MAGIC_uvar_elem +=for apidoc Amnh||PERL_MAGIC_vstring +=for apidoc Amnh||PERL_MAGIC_vec +=for apidoc Amnh||PERL_MAGIC_utf8 +=for apidoc Amnh||PERL_MAGIC_substr +=for apidoc Amnh||PERL_MAGIC_nonelem +=for apidoc Amnh||PERL_MAGIC_defelem +=for apidoc Amnh||PERL_MAGIC_lvref +=for apidoc Amnh||PERL_MAGIC_checkcall +=for apidoc Amnh||PERL_MAGIC_ext + =for mg_vtable.pl end When an uppercase and lowercase letter both exist in the table, then the 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/; |