summaryrefslogtreecommitdiff
path: root/scope.c
diff options
context:
space:
mode:
authorDave Mitchell <davem@fdisolutions.com>2003-08-07 16:53:35 +0100
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2003-08-07 19:59:18 +0000
commit2740392c45d51e34cd904b51afcc00544a78cf82 (patch)
tree3973742d21b9566374f272b2023bb7706f3db140 /scope.c
parentf695f0e6874001cf0696a1b1ec3411efe80ba2a9 (diff)
downloadperl-2740392c45d51e34cd904b51afcc00544a78cf82.tar.gz
Fwd: Re: [PATCH] flags set incorrectly on abandoned lexicals
Message-ID: <20030807145335.GF26683@fdgroup.com> p4raw-id: //depot/perl@20559
Diffstat (limited to 'scope.c')
-rw-r--r--scope.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/scope.c b/scope.c
index 673a312900..ff45b0da43 100644
--- a/scope.c
+++ b/scope.c
@@ -945,7 +945,7 @@ Perl_leave_scope(pTHX_ I32 base)
SvREFCNT_dec(sv); /* Cast current value to the winds. */
/* preserve pad nature, but also mark as not live
* for any closure capturing */
- SvFLAGS(*(SV**)ptr) |= padflags & SVs_PADSTALE;
+ SvFLAGS(*(SV**)ptr) |= padflags | SVs_PADSTALE;
}
break;
case SAVEt_DELETE: