diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-05 20:26:43 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-05 20:26:43 +0000 |
| commit | 0f303493c65bc7de97980f1ff363e7d45c736c65 (patch) | |
| tree | 796a15f826fc05502fd59b75e92ed274c1ebe66a /gv.c | |
| parent | 10609e9a342de3bae37d4ac9f8d8bc93c0a4e896 (diff) | |
| download | perl-0f303493c65bc7de97980f1ff363e7d45c736c65.tar.gz | |
add comments on GV_FOO constants, s/8/GV_ADDINEVAL/
p4raw-id: //depot/perl@1322
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -460,7 +460,7 @@ gv_fetchpv(char *nambeg, I32 add, I32 sv_type) gv = gvp ? *gvp : Nullgv; if (gv && gv != (GV*)&sv_undef) { if (SvTYPE(gv) != SVt_PVGV) - gv_init(gv, stash, tmpbuf, len, (add & 2)); + gv_init(gv, stash, tmpbuf, len, (add & GV_ADDMULTI)); else GvMULTI_on(gv); } @@ -563,7 +563,7 @@ gv_fetchpv(char *nambeg, I32 add, I32 sv_type) if (!stash) { if (!add) return Nullgv; - if (add & ~2) { + if (add & ~GV_ADDMULTI) { char sv_type_char = ((sv_type == SVt_PV) ? '$' : (sv_type == SVt_PVAV) ? '@' : (sv_type == SVt_PVHV) ? '%' |