From 0aa33fc350d54d82967dd6eaa11aa498b2dca88e Mon Sep 17 00:00:00 2001
From: Karl Williamson <khw@cpan.org>
Date: Wed, 3 Jul 2024 10:04:01 -0600
Subject: [PATCH] Add const to parameter to sv_catpv_flags

The function it merely wraps is const, so this causes the actual
declaration in the code to match the prototype forward declaration
---
 embed.fnc | 2 +-
 proto.h   | 2 +-
 sv.c      | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

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);