diff --git a/embed.fnc b/embed.fnc index 95e902cf3879..862f5f1578b6 100644 --- a/embed.fnc +++ b/embed.fnc @@ -3060,7 +3060,7 @@ Adp |void |sv_catpv |NN SV * const dsv \ Adfpv |void |sv_catpvf |NN SV * const sv \ |NN const char * const pat \ |... -Adp |void |sv_catpv_flags |NN SV *dsv \ +Adp |void |sv_catpv_flags |NN SV * const dsv \ |NN const char *sstr \ |const I32 flags Adfpv |void |sv_catpvf_mg |NN SV * const sv \ diff --git a/proto.h b/proto.h index ff55196b3508..c399427c6378 100644 --- a/proto.h +++ b/proto.h @@ -4363,7 +4363,7 @@ Perl_sv_catpv(pTHX_ SV * const dsv, const char *sstr); assert(dsv) PERL_CALLCONV void -Perl_sv_catpv_flags(pTHX_ SV *dsv, const char *sstr, const I32 flags); +Perl_sv_catpv_flags(pTHX_ SV * const dsv, const char *sstr, const I32 flags); #define PERL_ARGS_ASSERT_SV_CATPV_FLAGS \ assert(dsv); assert(sstr) diff --git a/sv.c b/sv.c index fc438517e66c..5f7296ae4b7a 100644 --- a/sv.c +++ b/sv.c @@ -5771,7 +5771,7 @@ Perl_sv_catpv(pTHX_ SV *const dsv, const char *sstr) } void -Perl_sv_catpv_flags(pTHX_ SV *dsv, const char *sstr, const I32 flags) +Perl_sv_catpv_flags(pTHX_ SV * const dsv, const char *sstr, const I32 flags) { PERL_ARGS_ASSERT_SV_CATPV_FLAGS; sv_catpvn_flags(dsv, sstr, strlen(sstr), flags);