2 files changed, 10 insertions, 1 deletions
diff --git a/doop.c b/doop.c
index 89825567a8..d0d46aeb02 100644
--- a/doop.c
+++ b/doop.c
@@ -635,6 +635,15 @@ Perl_do_trans(pTHX_ SV *sv)
     }
 }
 
+/*
+=for apidoc_section $string
+=for apidoc do_join
+
+Implements C<pp_join> and used as a helper for other system functions
+
+=cut
+*/
+
 void
 Perl_do_join(pTHX_ SV *sv, SV *delim, SV **mark, SV **sp)
 {
diff --git a/embed.fnc b/embed.fnc
index 8be4cebd4f..d9453d1415 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -819,7 +819,7 @@ p	|I32	|do_semop	|NN SV** mark|NN SV** sp
 : Defined in doio.c, used only in pp_sys.c
 p	|I32	|do_shmio	|I32 optype|NN SV** mark|NN SV** sp
 #endif
-Ap	|void	|do_join	|NN SV *sv|NN SV *delim|NN SV **mark|NN SV **sp
+Cpd	|void	|do_join	|NN SV *sv|NN SV *delim|NN SV **mark|NN SV **sp
 : Used in pp.c and pp_hot.c, prototype generated by regen/opcode.pl
 : p	|OP*	|do_kv
 : used in pp.c, pp_hot.c