gh18842: fix a pair of sprintf format warnings

The format is '%s', so it is not appropriate to wrap the char * arguments in SVfARG().
Perl · May 31, 2021 · f728736 · f728736
1 parent ffa5817
commit f728736
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/perl.c b/perl.c
@@ -2380,8 +2380,8 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
 	    (void)Perl_av_create_and_unshift_one(aTHX_ &PL_preambleav,
 						 Perl_newSVpvf(aTHX_
 							       "BEGIN { do {local $!; -f q%c%s/sitecustomize.pl%c} && do q%c%s/sitecustomize.pl%c }",
-							       0, SVfARG(sitelib), 0,
-							       0, SVfARG(sitelib), 0));
+							       0, sitelib, 0,
+							       0, sitelib, 0));
 	    assert (SvREFCNT(sitelib_sv) == 1);
 	    SvREFCNT_dec(sitelib_sv);
 	}