tags 395268 + upstream
forwarded 395268 <[EMAIL PROTECTED]>
stop

Hello Tassilo

The Debian distribution includes your Mail::MBoxParser perl library.
Currently it does not seem to pass all included tests, though.

t/3_while.t and t/7_attach.t go into an endless loop:

$ perl -d ./3_while.t
        
main::(../3_while.t:7): my $src = File::Spec->catfile('t', 'testbox');
  DB<1> n
main::(../3_while.t:11):        my $mb    = Mail::MboxParser->new($src);
  DB<1> n
main::(../3_while.t:12):        my @mails; 
  DB<1> n
main::(../3_while.t:14):        while (my $msg = $mb->next_message) {
  DB<1> n
main::(../3_while.t:15):            push @mails, $msg;
  DB<1> n
main::(../3_while.t:15):            push @mails, $msg;
  DB<1> n
main::(../3_while.t:15):            push @mails, $msg;
  DB<1> n
main::(../3_while.t:15):            push @mails, $msg;
  DB<1> n
main::(../3_while.t:15):            push @mails, $msg;
  DB<1> n
main::(../3_while.t:15):            push @mails, $msg;
  DB<1> n
                
                <ctrl-c>

  DB<1> n
Mail::Mbox::MessageParser::Grep::_read_chunk(/usr/share/perl5/Mail/Mbox/MessageParser/Grep.pm:374):
374:        $total_amount_read += read($self->{'file_handle'}, 
$self->{'READ_BUFFER'},
375:          $length_to_read-$total_amount_read, 
length($self->{'READ_BUFFER'}));
                        
        ^^^^^^^^^^              loops in this line! ^^^^^^^^^


I tested versions 0.54 and 0.55. Can you provide a fix?

bye,

-christian-



-- 
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]

Reply via email to