summaryrefslogtreecommitdiff
path: root/dump.c
diff options
context:
space:
mode:
authorTony Cook <tony@develop-help.com>2022-11-17 14:42:36 +1100
committerJames E Keenan <jkeenan@cpan.org>2022-11-18 18:12:45 -0500
commit293512d5065deaf2e25e3854930ac526abf2ab60 (patch)
treec4bbead4555106b22dc04e0dff2edb6446446f8b /dump.c
parent970609e17c79578d2051de18f156f48701755715 (diff)
downloadperl-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.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/dump.c b/dump.c
index 70d67e562a..dc12eab093 100644
--- a/dump.c
+++ b/dump.c
@@ -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);