diff options
author | Tony Cook <tony@develop-help.com> | 2022-07-12 10:37:30 +1000 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2022-08-08 15:15:02 +1000 |
commit | 90eef0af06f8dd17dd39a5ed9827264ff5b6b981 (patch) | |
tree | f153058eb8fd9425b23e5e0420ffcf8a3ef2e95d /mg.c | |
parent | a577a1f18e7562749b5949934cacb911a1551dbd (diff) | |
download | perl-90eef0af06f8dd17dd39a5ed9827264ff5b6b981.tar.gz |
explicitly ignore the result of sv_utf8_downgrade()
Coverity complains about this because most other calls are
checked.
CIDs 353483, 353003, 353000, 352998, 352995
Diffstat (limited to 'mg.c')
-rw-r--r-- | mg.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1264,7 +1264,7 @@ Perl_magic_setenv(pTHX_ SV *sv, MAGIC *mg) /* defined environment variables are byte strings; unfortunately there is no SvPVbyte_force_nomg(), so we must do this piecewise */ (void)SvPV_force_nomg_nolen(sv); - sv_utf8_downgrade(sv, /* fail_ok */ TRUE); + (void)sv_utf8_downgrade(sv, /* fail_ok */ TRUE); if (SvUTF8(sv)) { Perl_ck_warner_d(aTHX_ packWARN(WARN_UTF8), "Wide character in %s", "setenv"); SvUTF8_off(sv); |