diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2021-05-31 14:08:54 +0100 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2021-05-31 08:02:12 -0600 |
| commit | f72873660d1db9867dbdc98bbfc9e52b63387937 (patch) | |
| tree | ab6063db489c69c0be8c25607581e649cc566ccf /perl.c | |
| parent | ffa5817eaaa39d5cbd7b8218784aec894b24b2fc (diff) | |
| download | perl-f72873660d1db9867dbdc98bbfc9e52b63387937.tar.gz | |
gh18842: fix a pair of sprintf format warnings
The format is '%s', so it is not appropriate to wrap the char * arguments
in SVfARG().
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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); } |