diff options
| author | John Peacock <jpeacock@rowman.com> | 2001-05-24 18:14:01 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-26 13:14:30 +0000 |
| commit | 06759ea031c43fa8236d70242f3d2f6e2fddd408 (patch) | |
| tree | 8564b86ecba4d3f191fbbcb6290b1edb332e3573 /scope.c | |
| parent | af6c647ee5aae2406b2bfb66c4fe11a81de75b05 (diff) | |
| download | perl-06759ea031c43fa8236d70242f3d2f6e2fddd408.tar.gz | |
Re: [ID 20010426.005] Magic not being removed at scope exit [PATCH]
Message-ID: <3B0DBFE9.A7C49084@rowman.com>
p4raw-id: //depot/perl@10214
Diffstat (limited to 'scope.c')
| -rw-r--r-- | scope.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -203,7 +203,7 @@ S_save_scalar_at(pTHX_ SV **sptr) mg->mg_obj = osv; } SvFLAGS(osv) |= (SvFLAGS(osv) & - (SVp_IOK|SVp_NOK|SVp_POK)) >> PRIVSHIFT; + (SVp_NOK|SVp_POK)) >> PRIVSHIFT; PL_tainted = oldtainted; } SvMAGIC(sv) = SvMAGIC(osv); @@ -699,7 +699,7 @@ Perl_leave_scope(pTHX_ I32 base) SvTYPE(value) != SVt_PVGV) { SvFLAGS(value) |= (SvFLAGS(value) & - (SVp_IOK|SVp_NOK|SVp_POK)) >> PRIVSHIFT; + (SVp_NOK|SVp_POK)) >> PRIVSHIFT; SvMAGICAL_off(value); /* XXX this is a leak when we get here because the * mg_get() in save_scalar_at() croaked */ |