2 files changed, 9 insertions, 1 deletions

diff --git a/dump.c b/dump.c
index 77b41467d8..9197d636a7 100644
--- a/dump.c
+++ b/dump.c
@@ -390,6 +390,14 @@ Perl_pv_display(pTHX_ SV *dsv, const char *pv, STRLEN cur, STRLEN len, STRLEN pv
     return _pv_display_flags(aTHX_ dsv, pv, cur, len, pvlim, 0);
 }
 
+/*
+=for apidoc sv_peek
+
+Implements C<SvPEEK>
+
+=cut
+*/
+
 char *
 Perl_sv_peek(pTHX_ SV *sv)
 {
diff --git a/embed.fnc b/embed.fnc
index d3d6fde8bb..d308a33d4f 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -1896,7 +1896,7 @@ ApdR	|SV*	|sv_newmortal
 Cpd	|SV*	|sv_newref	|NULLOK SV *const sv
 Amd	|bool	|sv_numeq	|NULLOK SV* sv1|NULLOK SV* sv2
 Apd	|bool	|sv_numeq_flags	|NULLOK SV* sv1|NULLOK SV* sv2|const U32 flags
-Ap	|char*	|sv_peek	|NULLOK SV* sv
+Cpd	|char*	|sv_peek	|NULLOK SV* sv
 Apd	|void	|sv_pos_u2b	|NULLOK SV *const sv|NN I32 *const offsetp|NULLOK I32 *const lenp
 Apd	|STRLEN	|sv_pos_u2b_flags|NN SV *const sv|STRLEN uoffset \
 				|NULLOK STRLEN *const lenp|U32 flags