From: Gurusamy Sarathy Date: Fri, 2 Jun 2000 22:43:13 +0000 (+0000) Subject: fix yet another eval"" leak under USE_ITHREADS X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=63caf6080702341afbd2806f3d0b2bb9ccae687d;p=p5sagit%2Fp5-mst-13.2.git fix yet another eval"" leak under USE_ITHREADS p4raw-id: //depot/perl@6195 --- diff --git a/op.c b/op.c index affb597..9a16105 100644 --- a/op.c +++ b/op.c @@ -5339,6 +5339,7 @@ Perl_ck_rvconst(pTHX_ register OP *o) #ifdef USE_ITHREADS /* XXX hack: dependence on sizeof(PADOP) <= sizeof(SVOP) */ kPADOP->op_padix = pad_alloc(OP_GV, SVs_PADTMP); + SvREFCNT_dec(PL_curpad[kPADOP->op_padix]); GvIN_PAD_on(gv); PL_curpad[kPADOP->op_padix] = SvREFCNT_inc(gv); #else