Change 27403: This looks like a memory leak.

[Rafael Garcia-Suarez]

Change 27403 by [EMAIL PROTECTED] on 2006/03/07 17:09:54

        This looks like a memory leak.

Affected files ...

... //depot/perl/op.c#773 edit

Differences ...

==== //depot/perl/op.c#773 (text) ====
Index: perl/op.c
--- perl/op.c#772~27402~        2006-03-07 08:49:58.000000000 -0800
+++ perl/op.c   2006-03-07 09:09:54.000000000 -0800
@@ -3467,6 +3467,7 @@
        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;
        }
End of Patch.