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 (file)
--- 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;