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; }