table 7,8... which have been removed was not discarded because it doe…

…s not return empty value but simple quotes
bioperl · Feb 16, 2024 · 33e0de3 · 33e0de3
1 parent 50a4823
commit 33e0de3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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;
         }