summaryrefslogtreecommitdiff
path: root/gv.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2020-08-29 11:02:06 -0600
committerKarl Williamson <khw@cpan.org>2020-09-01 18:16:47 -0600
commitce11cda0bca599ce84fb735c090be362060a4495 (patch)
treea61fb22746adee79d768d4fea83b9d2505542918 /gv.c
parent3968dd31449cdb2ec3259e2068fcf61d78618c3a (diff)
downloadperl-ce11cda0bca599ce84fb735c090be362060a4495.tar.gz
gv.c: Clarify comment
Diffstat (limited to 'gv.c')
-rw-r--r--gv.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/gv.c b/gv.c
index cef4786b1a..f3ff7930fd 100644
--- a/gv.c
+++ b/gv.c
@@ -2409,7 +2409,7 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags,
/* By this point we should have a stash and a name */
gvp = (GV**)hv_fetch(stash,name,is_utf8 ? -(I32)len : (I32)len,add);
if (!gvp || *gvp == (const GV *)&PL_sv_undef) {
- if (addmg) gv = (GV *)newSV(0);
+ if (addmg) gv = (GV *)newSV(0); /* tentatively */
else return NULL;
}
else gv = *gvp, addmg = 0;