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

Ewan Birney birney@ebi.ac.uk
Wed, 12 Dec 2001 07:29:21 +0000 (GMT)


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.