[Bioperl-l] Memory leak in Bio::Root::Root?

[Torsten Seemann]

Mike,

> By commenting out various portions of the methods I have discovered that 
> the (a?) single offending line is is:
> I'm off trying to understand why this keeps sucking up memory
>
> ($polyn = $tempseq)  =~ s/^\w{$lcount}(\w)\w*$/$1/;

You could try replacing those lines with:

$polyn = $tempseq;
my $minw = $lcount+1;
if ($polyn =~ m/^\w{$minw,}$/) {
  $polyn = substr($polyn, $lcount, 1);
}

and see if it chnages the behaviour?

(And please correct my logic if it is wrong :-)

-- 
Torsten Seemann <torsten.seemann at infotech.monash.edu.au>
Victorian Bioinformatics Consortium