From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 30 May 2000 03:09:38 +0000 (+0000)
Subject: fix memory leak in method call optimization (change#3768);
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a1ae71d2eab6bef8ae541232f19e7e981e18b3c6;p=p5sagit%2Fp5-mst-13.2.git

fix memory leak in method call optimization (change#3768);
made C<eval "$x->foo()"> leak

p4raw-link: @3768 on //depot/perl: f5d5a27c761624409884a263632e1a922439502b

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

diff --git a/op.c b/op.c
index 6e77fde..1813232 100644
--- a/op.c
+++ b/op.c
@@ -784,6 +784,7 @@ S_op_clear(pTHX_ OP *o)
 	cSVOPo->op_sv = Nullsv;
 #endif
 	break;
+    case OP_METHOD_NAMED:
     case OP_CONST:
 	SvREFCNT_dec(cSVOPo->op_sv);
 	cSVOPo->op_sv = Nullsv;