diff options
author | Nicholas Clark <nick@ccl4.org> | 2010-10-13 17:07:34 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2010-10-13 17:07:34 +0100 |
commit | f8fcc4c4d40dffe02ea3730dff8d5723dc1cf0fe (patch) | |
tree | 7b7366a784cc442b366144f25eee67535e87838f /scope.c | |
parent | fdae947323b49384fccc4ae1603c2e5fca04f0f1 (diff) | |
download | perl-f8fcc4c4d40dffe02ea3730dff8d5723dc1cf0fe.tar.gz |
In S_save_scalar_at, remove oldtainted, unneeded since 0cbee0a449cc4e11.
0cbee0a449cc4e11 removed the call to mg_get(), and hence any possibility of
calling code with the side effect of changing PL_tainted.
Diffstat (limited to 'scope.c')
-rw-r--r-- | scope.c | 2 |
1 files changed, 0 insertions, 2 deletions
@@ -183,10 +183,8 @@ S_save_scalar_at(pTHX_ SV **sptr, const U32 flags) if (SvTYPE(osv) >= SVt_PVMG && SvMAGIC(osv) && SvTYPE(osv) != SVt_PVGV) { if (SvGMAGICAL(osv)) { - const bool oldtainted = PL_tainted; SvFLAGS(osv) |= (SvFLAGS(osv) & (SVp_IOK|SVp_NOK|SVp_POK)) >> PRIVSHIFT; - PL_tainted = oldtainted; } if (!(flags & SAVEf_KEEPOLDELEM)) mg_localize(osv, sv, (flags & SAVEf_SETMAGIC) != 0); |