if (SvPADMY(sv) && !SvFAKE(sv))
SvREADONLY_off(sv);
- if (SvTHINKFIRST(sv))
- sv_force_normal_flags(sv, SV_IMMEDIATE_UNREF
- |SV_COW_DROP_PV);
if (SvTYPE(sv) == SVt_PVHV)
Perl_hv_kill_backrefs(aTHX_ MUTABLE_HV(sv));
if (SvMAGICAL(sv))
if (SvTYPE(sv) != SVt_PVCV)
mg_free(sv);
}
+ if (SvTHINKFIRST(sv))
+ sv_force_normal_flags(sv, SV_IMMEDIATE_UNREF
+ |SV_COW_DROP_PV);
switch (SvTYPE(sv)) {
case SVt_NULL: