[Bioperl-l] malloc errors while using Bio::SeqIO?

[George Hartzell]

George Hartzell writes:
 > 
 > I'm pretty sure that this fixes the problem:
 > 
 > g.
 > 
 > Index: Bio/Species.pm
 > ===================================================================
 > --- Bio/Species.pm	(revision 14791)
 > +++ Bio/Species.pm	(working copy)
 > @@ -340,6 +340,7 @@
 >  		}
 >  		
 >  		$self->{_species} = $species;
 > +		weaken($self->{tree}->{'_rootnode'}) unless isweak($self->{tree}->{'_rootnode'});
 >      }
 >  	return $self->{_species};
 >  }

Actually, it's a bit clearer with the weaken moved up in the block so
that it's closer to where the new tree is allocated.

Chris suggested that I go ahead and I commit it.

g.