perlapi: Document SvAMAGIC_(on|off)

2 files changed, 19 insertions, 2 deletions

diff --git a/embed.fnc b/embed.fnc
index ec38c00617..db3d0664a6 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -2792,8 +2792,8 @@ AiTMdp	|SV *	|SvREFCNT_inc_NN|NN SV *sv
 AiTMdp	|void	|SvREFCNT_inc_void|NULLOK SV *sv
 AiMdp	|void	|SvREFCNT_dec	|NULLOK SV *sv
 AiMdp	|void	|SvREFCNT_dec_NN|NN SV *sv
-AiTp	|void	|SvAMAGIC_on	|NN SV *sv
-AiTp	|void	|SvAMAGIC_off	|NN SV *sv
+AiTpd	|void	|SvAMAGIC_on	|NN SV *sv
+AiTpd	|void	|SvAMAGIC_off	|NN SV *sv
 Aipd	|bool	|SvTRUE		|NULLOK SV *sv
 Aipd	|bool	|SvTRUE_nomg	|NULLOK SV *sv
 Aipd	|bool	|SvTRUE_NN	|NN SV *sv
diff --git a/inline.h b/inline.h
index a884472663..436f8eb3ac 100644
--- a/inline.h
+++ b/inline.h
@@ -419,6 +419,14 @@ Perl_SvREFCNT_dec_NN(pTHX_ SV *sv)
         Perl_sv_free2(aTHX_ sv, rc);
 }
 
+/*
+=for apidoc SvAMAGIC_on
+
+Indicate that C<sv> has overloading (active magic) enabled.
+
+=cut
+*/
+
 PERL_STATIC_INLINE void
 Perl_SvAMAGIC_on(SV *sv)
 {
@@ -427,6 +435,15 @@ Perl_SvAMAGIC_on(SV *sv)
 
     if (SvOBJECT(SvRV(sv))) HvAMAGIC_on(SvSTASH(SvRV(sv)));
 }
+
+/*
+=for apidoc SvAMAGIC_off
+
+Indicate that C<sv> has overloading (active magic) disabled.
+
+=cut
+*/
+
 PERL_STATIC_INLINE void
 Perl_SvAMAGIC_off(SV *sv)
 {