Mark internal and document do_close

2 files changed, 10 insertions, 2 deletions

diff --git a/doio.c b/doio.c
index 87790da137..83061b532f 100644
--- a/doio.c
+++ b/doio.c
@@ -1811,7 +1811,15 @@ S_argvout_final(pTHX_ MAGIC *mg, IO *io, bool not_implicit) {
     return retval;
 }
 
-/* explicit renamed to avoid C++ conflict    -- kja */
+/*
+=for apidoc_section $io
+=for apidoc do_close
+
+Implements pp_close and used as a helper in other system functions
+
+=cut
+
+ * explicit renamed to avoid C++ conflict    -- kja */
 bool
 Perl_do_close(pTHX_ GV *gv, bool not_implicit)
 {
diff --git a/embed.fnc b/embed.fnc
index b390167f81..7817d4b07f 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -783,7 +783,7 @@ pMb	|bool|do_aexec	|NULLOK SV* really|NN SV** mark|NN SV** sp
 p	|bool|do_aexec5	|NULLOK SV* really|NN SV** mark|NN SV** sp|int fd|int do_report
 AbpD	|int	|do_binmode	|NN PerlIO *fp|int iotype|int mode
 : Used in pp.c
-Ap	|bool	|do_close	|NULLOK GV* gv|bool not_implicit
+Cpd	|bool	|do_close	|NULLOK GV* gv|bool not_implicit
 : Defined in doio.c, used only in pp_sys.c
 p	|bool	|do_eof		|NN GV* gv