From: Radu Greab <radu@netsoft.ro>
Date: Fri, 6 Jul 2001 19:48:54 +0000 (+0300)
Subject: Re: bleedperl perl_alloc..free leakage
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=83da49e6dc02d11623dc62ca3191fd4694484ce8;p=p5sagit%2Fp5-mst-13.2.git

Re: bleedperl perl_alloc..free leakage
Message-ID: <15173.60406.308246.456184@ix.netsoft.ro>

Leak-be-gone.

p4raw-id: //depot/perl@11188
---

diff --git a/op.c b/op.c
index 92d15da..bb288a3 100644
--- a/op.c
+++ b/op.c
@@ -842,12 +842,12 @@ clear_pmop:
 		    lastpmop = pmop;
 		    pmop = pmop->op_pmnext;
 		}
+	    }
 #ifdef USE_ITHREADS
-		Safefree(PmopSTASHPV(cPMOPo));
+	    Safefree(PmopSTASHPV(cPMOPo));
 #else
-		/* NOTE: PMOP.op_pmstash is not refcounted */
+	    /* NOTE: PMOP.op_pmstash is not refcounted */
 #endif
-	    }
 	}
 	cPMOPo->op_pmreplroot = Nullop;
 	ReREFCNT_dec(PM_GETRE(cPMOPo));