From b9412520dc2b056ff5c95be898390761501cee91 Mon Sep 17 00:00:00 2001 From: Dave Mitchell Date: Thu, 19 Dec 2002 18:55:43 +0000 Subject: remove flag SvPADBUSY Message-ID: <20021219185543.C9530@fdgroup.com> p4raw-id: //depot/perl@18409 --- pad.c | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'pad.c') diff --git a/pad.c b/pad.c index 34efeb09dd..a36c81fbc8 100644 --- a/pad.c +++ b/pad.c @@ -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; } } -- cgit v1.2.1