From f72873660d1db9867dbdc98bbfc9e52b63387937 Mon Sep 17 00:00:00 2001
From: Hugo van der Sanden <hv@crypt.org>
Date: Mon, 31 May 2021 14:08:54 +0100
Subject: [PATCH] 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.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl.c b/perl.c
index 48ae9a3a04fd..98c627f21b18 100644
--- 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);
 	}