diff options
| author | Karl Williamson <khw@cpan.org> | 2020-08-29 11:02:06 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2020-09-01 18:16:47 -0600 |
| commit | ce11cda0bca599ce84fb735c090be362060a4495 (patch) | |
| tree | a61fb22746adee79d768d4fea83b9d2505542918 /gv.c | |
| parent | 3968dd31449cdb2ec3259e2068fcf61d78618c3a (diff) | |
| download | perl-ce11cda0bca599ce84fb735c090be362060a4495.tar.gz | |
gv.c: Clarify comment
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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; |