From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 7 Mar 2006 17:09:54 +0000 (+0000)
Subject: This looks like a memory leak.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3b6547f5bf85b73b309ae78aa34853ad20561fb6;p=p5sagit%2Fp5-mst-13.2.git

This looks like a memory leak.

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

diff --git a/op.c b/op.c
index de36ced..ae5c6a8 100644
--- a/op.c
+++ b/op.c
@@ -3467,6 +3467,7 @@ Perl_newASSIGNOP(pTHX_ I32 flags, OP *left, I32 optype, OP *right)
 	if (PL_eval_start)
 	    PL_eval_start = 0;
 	else {
+	    op_free(o);
 	    o = newSVOP(OP_CONST, 0, newSViv(PL_compiling.cop_arybase));
 	    o->op_private |= OPpCONST_ARYBASE;
 	}