This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
add comments on GV_FOO constants, s/8/GV_ADDINEVAL/
[perl5.git] / gv.c
diff --git a/gv.c b/gv.c
index 9358ba3..035f22c 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -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) ? '%'