libmail-imapclient-perl Memory-Leak

[Christian Schrader <Christian.Schrader@gmx.de>]

Moin!

Hab ein Problem mit libmail-imapclient-perl. Wenn ich folgendes Script
aufrufe, dann verbraucht das Script den kompletten Speicher. Das Problem
ist dabei die Funktion $imap->body_string(). message_string()
funktioniert ohne Probleme. Könnte das mal bitte jemand testen?

--------------  snip  ---------------
#!/usr/bin/perl -w
use Mail::IMAPClient;
use Digest::MD5 qw(md5_hex);
use strict;

my $host = "localhost";
my $user = "bla";
my $pass = "foo";

my $imap = Mail::IMAPClient->new( Server => $host,
                                  User   => $user,
                                  Password => $pass,
                                  Peek => 1,
                                  Uid =>1
                                ) or die "Cannot connect to $host as
$user: $@";

my @headerlist = ("From","To","Cc","Date","Message-Id");

$imap->select('INBOX');
my @mails = $imap->search("ALL");

foreach my $m (@mails){
    print $imap->body_string($m);
}

--------------  snip  ---------------

Oder ist da ein Fehler drin?

Vielen Dank,
Christian