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 /pad.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 'pad.c')
| -rw-r--r-- | pad.c | 7 |
1 files changed, 2 insertions, 5 deletions
@@ -378,9 +378,7 @@ Perl_pad_alloc(pTHX_ I32 optype, U32 tmptype) if (PL_pad_reset_pending) pad_reset(); if (tmptype & SVs_PADMY) { - do { - sv = *av_fetch(PL_comppad, AvFILLp(PL_comppad) + 1, TRUE); - } while (SvPADBUSY(sv)); /* need a fresh one */ + sv = *av_fetch(PL_comppad, AvFILLp(PL_comppad) + 1, TRUE); retval = AvFILLp(PL_comppad); } else { @@ -1344,8 +1342,7 @@ S_cv_clone2(pTHX_ CV *proto, CV *outside) sv = (SV*)newHV(); else sv = NEWSV(0, 0); - if (!SvPADBUSY(sv)) - SvPADMY_on(sv); + SvPADMY_on(sv); PL_curpad[ix] = sv; } } |