This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
parts/inc/sv_xpvf: Adjust prototype to match blead
authorKarl Williamson <khw@cpan.org>
Fri, 12 Jul 2019 17:08:24 +0000 (11:08 -0600)
committerNicolas R <atoomic@cpan.org>
Fri, 27 Sep 2019 22:51:28 +0000 (16:51 -0600)
(cherry picked from commit b022731d60d59e7719049671ae04d798158205c9)
Signed-off-by: Nicolas R <atoomic@cpan.org>
dist/Devel-PPPort/parts/inc/sv_xpvf

index af78d14..b2560ab 100644 (file)
@@ -45,7 +45,7 @@ sv_vsetpvf_mg
 #if { NEED sv_catpvf_mg }
 
 void
-sv_catpvf_mg(pTHX_ SV *sv, const char *pat, ...)
+sv_catpvf_mg(pTHX_ SV * const sv, const char * const pat, ...)
 {
   va_list args;
   va_start(args, pat);
@@ -62,7 +62,7 @@ sv_catpvf_mg(pTHX_ SV *sv, const char *pat, ...)
 #if { NEED sv_catpvf_mg_nocontext }
 
 void
-sv_catpvf_mg_nocontext(SV *sv, const char *pat, ...)
+sv_catpvf_mg_nocontext(SV * const sv, const char * const pat, ...)
 {
   dTHX;
   va_list args;
@@ -97,7 +97,7 @@ sv_catpvf_mg_nocontext(SV *sv, const char *pat, ...)
 #if { NEED sv_setpvf_mg }
 
 void
-sv_setpvf_mg(pTHX_ SV *sv, const char *pat, ...)
+sv_setpvf_mg(pTHX_ SV * const sv, const char * const pat, ...)
 {
   va_list args;
   va_start(args, pat);
@@ -114,7 +114,7 @@ sv_setpvf_mg(pTHX_ SV *sv, const char *pat, ...)
 #if { NEED sv_setpvf_mg_nocontext }
 
 void
-sv_setpvf_mg_nocontext(SV *sv, const char *pat, ...)
+sv_setpvf_mg_nocontext(SV * const sv, const char * const pat, ...)
 {
   dTHX;
   va_list args;