[Mimedefang] [PATCH] Memleak bug in mimedefang found and fixed

[David F. Skoll]

On Fri, 4 Jun 2004, Martin Blapp wrote:

> The memleak is quite big. In my experiences leaked mimedefang 30MB Ram
> each time you did a reload. And we do it quite often ...

OK.  So I'm running this in one window:

	watch 'ps auxww|grep multiplexor'

and I'm running this in another window:

	while true ; do md-mx-ctrl reread; sleep 1; done

and I'm running this in a third window:

	free -s 1

I'm using the embedded interpreter with SpamAssassin, and I'm not
seeing evidence of a leak.  The memory seems to stabilize at around
30MB.  This is on Linux.

> The solution is quite simple and easy ;-) I just moved the setting of
> PL_perl_destruct_level before the destrucor.

I have had a terrible time with Perl innards, with differences
appearing between platforms.  If your patch doesn't appear to break
anything, I'll apply it, but no-one seems to really know what's going
on with Perl.  The perlembed man page is incomplete and the internals
of Perl look messy and scary...

Regards,

David.