Bug#337792: Doesn't appear to be a leak; just large bugs in memory

[Don Armstrong <don@donarmstrong.com>]

tag 337792 unreproducible moreinfo
severity 337792 minor
thanks

This doesn't actually appear to be a leak; just the effect of large
bugs being loaded into memory and then the memory being available for
reuse in perl, but not being freed.

Running the following code, FE, will use 100M, but that's because the
bug in question is gynormous.

#!/usr/bin/perl -w

use strict;
use Debbugs::Log;
use Debbugs::MIME;
use Debbugs::Config qw(:config);

my $spool = $config{spool_dir};

sub read_log($) {
    my $log_filename = shift;
    open LOG, "< $log_filename" or die "Can't open $log_filename: $!";
    my @records = Debbugs::Log::read_log_records(*LOG);
    close LOG;

    for my $record (@records) {
        if ($record->{type} eq "incoming-recv") {
            my $decoded = Debbugs::MIME::parse($record->{text});
        }
    }
}

my $i=0;
while (1) {
     ++$i;
     print "$i iteration start\n";
     read_log("$spool/db-h/18/425618.log");
     print "$i iteration stop\n";
}


Don Armstrong

-- 
Unix, MS-DOS, and Windows NT (also known as the Good, the Bad, and
the Ugly).
 -- Matt Welsh

http://www.donarmstrong.com              http://rzlab.ucr.edu