MIME::Entity fills my memory

[Papo Napolitano]

Hi,

I just discovered this code:


#!/usr/bin/perl

use warnings;
use strict;
use MIME::Entity;

while (1) {
  my $msg = MIME::Entity->build(
    From     => 'TEST <[EMAIL PROTECTED]>',
    Sender   => '[EMAIL PROTECTED]',
    To       => '[EMAIL PROTECTED]',
    Subject  => 'TEST',
    Encoding => '-SUGGEST',
    Type     => 'text/plain',
    Data     => 'Hello world',
  );
}


makes my script eat all the available system memory (and swap!)
So my question is how do destroy $msg so the memory is freed?
'undef $msg' or '$msg = undef' inside the loop aren't working.

Thanks!

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>