summaryrefslogtreecommitdiff
path: root/scope.c
diff options
context:
space:
mode:
authorDave Mitchell <davem@fdisolutions.com>2005-07-07 14:47:51 +0000
committerDave Mitchell <davem@fdisolutions.com>2005-07-07 14:47:51 +0000
commit27cc343c4fb8030e5afb7c3824647d9e5e1d08d6 (patch)
tree3349f5c3d5c7e047ae89b95601b0c0d5ac745e02 /scope.c
parentbd5c3bd9b8ed3edb9439b1889b9dae06dd1644d4 (diff)
downloadperl-27cc343c4fb8030e5afb7c3824647d9e5e1d08d6.tar.gz
more taint fallout from change 24943
p4raw-id: //depot/perl@25094
Diffstat (limited to 'scope.c')
-rw-r--r--scope.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/scope.c b/scope.c
index 51d75b2c4e..04fbec1a7c 100644
--- a/scope.c
+++ b/scope.c
@@ -170,7 +170,9 @@ SV *
Perl_save_scalar(pTHX_ GV *gv)
{
SV **sptr = &GvSV(gv);
+ PL_localizing = 1;
SvGETMAGIC(*sptr);
+ PL_localizing = 0;
SSCHECK(3);
SSPUSHPTR(SvREFCNT_inc(gv));
SSPUSHPTR(SvREFCNT_inc(*sptr));