diff --git a/lib/Bio/Tools/CodonTable.pm b/lib/Bio/Tools/CodonTable.pm index b1387819e..89b33bde1 100644 --- a/lib/Bio/Tools/CodonTable.pm +++ b/lib/Bio/Tools/CodonTable.pm @@ -352,7 +352,7 @@ sub new { sub id{ my ($self,$value) = @_; if( defined $value) { - if ( not defined $TABLES[$value] or $TABLES[$value] eq '') { + if ( not defined $TABLES[$value] or $TABLES[$value] eq '' or $TABLES[$value] eq "''") { $self->warn("Not a valid codon table ID [$value], using [1] instead "); $value = 1; }