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

1 files changed, 1 insertions, 0 deletions

diff --git a/op.c b/op.c
index 6e77fde587..18132320f9 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;