From 83da49e6dc02d11623dc62ca3191fd4694484ce8 Mon Sep 17 00:00:00 2001
From: Radu Greab <radu@netsoft.ro>
Date: Fri, 6 Jul 2001 22:48:54 +0300
Subject: Re: bleedperl perl_alloc..free leakage Message-ID:
 <15173.60406.308246.456184@ix.netsoft.ro>

Leak-be-gone.

p4raw-id: //depot/perl@11188
---
 op.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'op.c')

diff --git a/op.c b/op.c
index 92d15da3a1..bb288a3576 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));
-- 
cgit v1.2.1