SV = PVMG(0x2e04558) at 0x3dce60
REFCNT = 1
FLAGS = (GMG,SMG,RMG)
IV = 0
NV = 0
PV = 0
MAGIC = 0x2e4ac58
MG_VIRTUAL = &PL_vtbl_packelem
MG_TYPE = PERL_MAGIC_tiedscalar(q)
MG_FLAGS = 0x02
REFCOUNTED
MG_OBJ = 0x26ad98
SV = IV(0x26ad90) at 0x26ad98
REFCNT = 1
FLAGS = (ROK)
RV = 0x26ad20
SV = PVHV(0x25c8e0) at 0x26ad20
...
####
SV = PVMG(0x2e04558) at 0x3dce60
REFCNT = 2
FLAGS = ()
IV = 0
NV = 0
PV = 0
MAGIC = 0x2e4ac58
MG_VIRTUAL = &PL_vtbl_packelem
MG_TYPE = PERL_MAGIC_tiedscalar(q)
MG_FLAGS = 0x02
REFCOUNTED
MG_OBJ = 0x26ad98
SV = IV(0x26ad90) at 0x26ad98
REFCNT = 1
FLAGS = (ROK)
RV = 0x26ad20
SV = PVHV(0x25c8e0) at 0x26ad20
...
##
##
SvMAGICAL_off(sv);
SvREADONLY_off(sv);
if (!(SvFLAGS(sv) & (SVf_IOK|SVf_NOK|SVf_POK))) {
/* No public flags are set, so promote any private flags to public. */
SvFLAGS(sv) |= (SvFLAGS(sv) & (SVp_IOK|SVp_NOK|SVp_POK)) >> PRIVSHIFT;
}