Stop calling Perl_sv_setpvf manually

Call sv_setpvf instead.

Author: Leont

dquote.c

@@ -117,7 +117,7 @@ Perl_form_alien_digit_msg(pTHX_
 
         /* It also isn't a UTF-8 invariant character, so no display shortcuts
          * are available.  Use \\x{...} */
-        Perl_sv_setpvf(aTHX_ display_char, "\\x{%02x}", *first_bad);
+        sv_setpvf(display_char, "\\x{%02x}", *first_bad);
     }
 
     /* Ready to start building the message */
@@ -216,7 +216,7 @@ Perl_form_cp_too_large_msg(pTHX_
         prefix = "0x";
     }
 
-    Perl_sv_setpvf(aTHX_ message_sv, "Use of code point %s", prefix);
+    sv_setpvf(message_sv, "Use of code point %s", prefix);
     if (string) {
         sv_catpvf(message_sv, "%.*s", (int) len, string);
     }

hv.c

@@ -1272,7 +1272,7 @@ Perl_hv_bucket_ratio(pTHX_ HV *hv)
 
     if (HvUSEDKEYS((HV *)hv)) {
         sv = sv_newmortal();
-        Perl_sv_setpvf(aTHX_ sv, "%ld/%ld",
+        sv_setpvf(sv, "%ld/%ld",
                 (long)HvFILL(hv), (long)HvMAX(hv) + 1);
     }
     else

locale.c

@@ -7075,7 +7075,7 @@ S_emulate_langinfo(pTHX_ const PERL_INTMAX_T item,
 
         const char * orig_CTYPE_locale;
         orig_CTYPE_locale = toggle_locale_c(LC_CTYPE, locale);
-        Perl_sv_setpvf(aTHX_ sv, CODE_PAGE_FORMAT, CODE_PAGE_FUNCTION);
+        sv_setpvf(sv, CODE_PAGE_FORMAT, CODE_PAGE_FUNCTION);
         retval_type = RETVAL_IN_sv;
 
         /* We just assume the codeset is ASCII; no need to check for it being

op.c

@@ -11076,7 +11076,7 @@ Perl_newATTRSUB_x(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs,
         has_name = TRUE;
     } else if (PERLDB_NAMEANON && CopLINE(PL_curcop)) {
         SV * const sv = sv_newmortal();
-        Perl_sv_setpvf(aTHX_ sv, "%s[%s:%" LINE_Tf "]",
+        sv_setpvf(sv, "%s[%s:%" LINE_Tf "]",
                        PL_curstash ? "__ANON__" : "__ANON__::__ANON__",
                        CopFILE(PL_curcop), CopLINE(PL_curcop));
         gv = gv_fetchsv(sv, gv_fetch_flags, SVt_PVCV);

pp_ctl.c

@@ -4859,7 +4859,7 @@ S_require_file(pTHX_ SV *sv)
                         }
                     }
 
-                    Perl_sv_setpvf(aTHX_ namesv, "/loader/0x%" UVxf "/%s",
+                    sv_setpvf(namesv, "/loader/0x%" UVxf "/%s",
                                    diruv, name);
                     tryname = SvPVX_const(namesv);
                     tryrsfp = NULL;
@@ -5099,7 +5099,7 @@ S_require_file(pTHX_ SV *sv)
                     sv_catpv(namesv, unixname);
 #else
                     /* The equivalent of		    
-                       Perl_sv_setpvf(aTHX_ namesv, "%s/%s", dir, name);
+                       sv_setpvf(namesv, "%s/%s", dir, name);
                        but without the need to parse the format string, or
                        call strlen on either pointer, and with the correct
                        allocation up front.  */
@@ -5440,7 +5440,7 @@ PP(pp_entereval)
 
     if (PERLDB_NAMEEVAL && CopLINE(PL_curcop)) {
         SV * const temp_sv = sv_newmortal();
-        Perl_sv_setpvf(aTHX_ temp_sv, "_<(eval %lu)[%s:%" LINE_Tf "]",
+        sv_setpvf(temp_sv, "_<(eval %lu)[%s:%" LINE_Tf "]",
                        (unsigned long)++PL_evalseq,
                        CopFILE(PL_curcop), CopLINE(PL_curcop));
         tmpbuf = SvPVX(temp_sv);

regcomp.c

@@ -16343,7 +16343,7 @@ S_handle_names_wildcard(pTHX_ const char * wname, /* wildcard name to match */
             for (j = low; j <= high; j++) { /* For each code point in the series */
 
                 /* Get its name, and see if it matches the subpattern */
-                Perl_sv_setpvf(aTHX_ algo_name, "%s-%X", SvPVX(prefix),
+                sv_setpvf(algo_name, "%s-%X", SvPVX(prefix),
                                      (unsigned) j);
 
                 if (execute_wildcard(subpattern_re,

sv.c

@@ -13770,7 +13770,7 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p
                 && ckWARN(WARN_PRINTF))
             {
                 SV * const msg = sv_newmortal();
-                Perl_sv_setpvf(aTHX_ msg, "Invalid conversion in %sprintf: ",
+                sv_setpvf(msg, "Invalid conversion in %sprintf: ",
                           (PL_op->op_type == OP_PRTF) ? "" : "s");
                 if (fmtstart < patend) {
                     const char * const fmtend = q < patend ? q : patend;