diff options
author | Tony Cook <tony@develop-help.com> | 2022-11-17 14:42:36 +1100 |
---|---|---|
committer | James E Keenan <jkeenan@cpan.org> | 2022-11-18 18:12:45 -0500 |
commit | 293512d5065deaf2e25e3854930ac526abf2ab60 (patch) | |
tree | c4bbead4555106b22dc04e0dff2edb6446446f8b /dump.c | |
parent | 970609e17c79578d2051de18f156f48701755715 (diff) | |
download | perl-293512d5065deaf2e25e3854930ac526abf2ab60.tar.gz |
GvNAME() always returns a true value
gcc 12 was complaining that GvNAME() always returns a true value,
and that's also true.
Omit such uses in conditions.
Diffstat (limited to 'dump.c')
-rw-r--r-- | dump.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1702,7 +1702,7 @@ Perl_do_gv_dump(pTHX_ I32 level, PerlIO *file, const char *name, GV *sv) PERL_ARGS_ASSERT_DO_GV_DUMP; Perl_dump_indent(aTHX_ level, file, "%s = 0x%" UVxf, name, PTR2UV(sv)); - if (sv && GvNAME(sv)) { + if (sv) { SV * const tmpsv = newSVpvs(""); PerlIO_printf(file, "\t\"%s\"\n", generic_pv_escape( tmpsv, GvNAME(sv), GvNAMELEN(sv), GvNAMEUTF8(sv) )); @@ -1717,7 +1717,7 @@ Perl_do_gvgv_dump(pTHX_ I32 level, PerlIO *file, const char *name, GV *sv) PERL_ARGS_ASSERT_DO_GVGV_DUMP; Perl_dump_indent(aTHX_ level, file, "%s = 0x%" UVxf, name, PTR2UV(sv)); - if (sv && GvNAME(sv)) { + if (sv) { SV *tmp = newSVpvs_flags("", SVs_TEMP); const char *hvname; HV * const stash = GvSTASH(sv); |