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

[George Hartzell]

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};
 }