negative value was accepted (e.g. -1 was seen as the last element of …

…the TABLE array)
bioperl · Feb 16, 2024 · ed68ed0 · ed68ed0
1 parent 33e0de3
commit ed68ed0
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 '' or $TABLES[$value] eq "''") {
+        if (  not defined $TABLES[$value] or $TABLES[$value] eq '' or $TABLES[$value] eq "''" or $value < 0) {
             $self->warn("Not a valid codon table ID [$value], using [1] instead ");
             $value = 1;
         }