}
TAINT_NOT;
}
+ if (PL_delaymagic & DM_ARRAY)
+ SvSETMAGIC((SV*)ary);
break;
case SVt_PVHV: { /* normal hash */
SV *tmpstr;
PL_egid = PerlProc_getegid();
}
PL_tainting |= (PL_uid && (PL_euid != PL_uid || PL_egid != PL_gid));
-
- if (PL_delaymagic & DM_ARRAY && SvMAGICAL((SV*)ary))
- mg_set((SV*)ary);
}
PL_delaymagic = 0;