--- Bio/SeqIO/genbank.pm.orig 2006-11-16 18:33:30.060417520 +0100 +++ Bio/SeqIO/genbank.pm 2006-11-16 20:29:59.014934936 +0100 @@ -504,7 +504,7 @@ my $db; # this is because GenBank dropped the spaces!!! # I'm sure we're not going to get this right - if( $id =~ s/^(EchoBASE|IntAct|SWISS-2DPAGE|ECO2DBASE|ECOGENE|TIGRFAMs|TIGR|GO|InterPro|Pfam|PROSITE|SGD|GermOnline|HSSP|PhosSite)//i ) { + if( $id =~ s/^(EchoBASE|IntAct|SWISS-2DPAGE|ECO2DBASE|ECOGENE|TIGRFAMs|TIGR|GO|InterPro|Pfam|PROSITE|SGD|GermOnline|HSSP|PhosSite)://i ) { $db = $1; } $annotation->add_Annotation