diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2002-12-19 18:55:43 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2003-01-03 11:05:09 +0000 |
| commit | 235cc2e3b03f7c8478aa5ccdbe27e0aaf735bb46 (patch) | |
| tree | edd08b576231ab95592753390c5dcb39f0338063 /scope.c | |
| parent | 089197fafbcea8edb9a8f7b55a201115f3f2010a (diff) | |
| download | perl-235cc2e3b03f7c8478aa5ccdbe27e0aaf735bb46.tar.gz | |
remove flag SvPADBUSY
Message-ID: <20021219185543.C9530@fdgroup.com>
p4raw-id: //depot/perl@18409
Diffstat (limited to 'scope.c')
| -rw-r--r-- | scope.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -920,7 +920,7 @@ Perl_leave_scope(pTHX_ I32 base) } } else { /* Someone has a claim on this, so abandon it. */ - U32 padflags = SvFLAGS(sv) & (SVs_PADBUSY|SVs_PADMY|SVs_PADTMP); + U32 padflags = SvFLAGS(sv) & (SVs_PADMY|SVs_PADTMP); switch (SvTYPE(sv)) { /* Console ourselves with a new value */ case SVt_PVAV: *(SV**)ptr = (SV*)newAV(); break; case SVt_PVHV: *(SV**)ptr = (SV*)newHV(); break; |