In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/f8fcc4c4d40dffe02ea3730dff8d5723dc1cf0fe?hp=fdae947323b49384fccc4ae1603c2e5fca04f0f1>
- Log -----------------------------------------------------------------
commit f8fcc4c4d40dffe02ea3730dff8d5723dc1cf0fe
Author: Nicholas Clark <n...@ccl4.org>
Date: Wed Oct 13 17:07:34 2010 +0100
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.
-----------------------------------------------------------------------
Summary of changes:
scope.c | 2 --
1 files changed, 0 insertions(+), 2 deletions(-)
diff --git a/scope.c b/scope.c
index 95fe5f7..0d07071 100644
--- a/scope.c
+++ b/scope.c
@@ -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);
--
Perl5 Master Repository
