This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
This looks like a memory leak.
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 7 Mar 2006 17:09:54 +0000 (17:09 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 7 Mar 2006 17:09:54 +0000 (17:09 +0000)
p4raw-id: //depot/perl@27403

op.c

diff --git a/op.c b/op.c
index de36ced..ae5c6a8 100644 (file)
--- 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;
        }