[Bioperl-l] SeqIO::genbank crash special case

[Ewan Birney]

Put in this fix on the main trunk


	    # fix suggested by James Diggans

	    if( !defined $ftunit ) {
		# GRRRR. We have fallen over. Try to recover
		$self->warn("Unexpected error in feature table for ".$seq->id." Skipping feature, attempting to recover");
		unless( ($buffer =~ /^\s{5,5}\S+/) or ($buffer =~ /\S+/)) {
		    $buffer = $self->_readline();
		}
		next; # back to reading FTHelpers
	    }


SeqIO.t passes test.