summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTony Cook <tony@develop-help.com>2022-07-12 10:37:30 +1000
committerTony Cook <tony@develop-help.com>2022-08-08 15:15:02 +1000
commit90eef0af06f8dd17dd39a5ed9827264ff5b6b981 (patch)
treef153058eb8fd9425b23e5e0420ffcf8a3ef2e95d
parenta577a1f18e7562749b5949934cacb911a1551dbd (diff)
downloadperl-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
-rw-r--r--mathoms.c2
-rw-r--r--mg.c2
-rw-r--r--pp.c4
-rw-r--r--sv.c2
4 files changed, 5 insertions, 5 deletions
diff --git a/mathoms.c b/mathoms.c
index 5f5155b614..dba2459b1e 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -344,7 +344,7 @@ Perl_sv_pvbyte(pTHX_ SV *sv)
{
PERL_ARGS_ASSERT_SV_PVBYTE;
- sv_utf8_downgrade(sv, FALSE);
+ (void)sv_utf8_downgrade(sv, FALSE);
return sv_pv(sv);
}
diff --git a/mg.c b/mg.c
index 55cb5bab72..cab3b8227e 100644
--- a/mg.c
+++ b/mg.c
@@ -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);
diff --git a/pp.c b/pp.c
index 1fcc9d4f9f..2f88019aca 100644
--- a/pp.c
+++ b/pp.c
@@ -3099,7 +3099,7 @@ PP(pp_oct)
SV* const tsv = sv_2mortal(newSVsv(sv));
SvUTF8_on(tsv);
- sv_utf8_downgrade(tsv, FALSE);
+ (void)sv_utf8_downgrade(tsv, FALSE);
tmps = SvPV_const(tsv, len);
}
if (PL_op->op_type == OP_HEX)
@@ -3689,7 +3689,7 @@ PP(pp_crypt)
* Yes, we made this up. */
SV* const tsv = newSVpvn_flags(tmps, len, SVf_UTF8|SVs_TEMP);
- sv_utf8_downgrade(tsv, FALSE);
+ (void)sv_utf8_downgrade(tsv, FALSE);
tmps = SvPV_const(tsv, len);
}
# ifdef USE_ITHREADS
diff --git a/sv.c b/sv.c
index 3c40c39046..6a7914f20a 100644
--- a/sv.c
+++ b/sv.c
@@ -10299,7 +10299,7 @@ Perl_sv_pvbyten_force(pTHX_ SV *const sv, STRLEN *const lp)
PERL_ARGS_ASSERT_SV_PVBYTEN_FORCE;
sv_pvn_force(sv,lp);
- sv_utf8_downgrade(sv,0);
+ (void)sv_utf8_downgrade(sv,0);
*lp = SvCUR(sv);
return SvPVX(sv);
}