Bug fix: handling multiple tag values

Ensembl · Feb 14, 2024 · a6b7088 · a6b7088
1 parent 8d7f805
commit a6b7088
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/modules/Bio/EnsEMBL/IO/Parser/GTF.pm b/modules/Bio/EnsEMBL/IO/Parser/GTF.pm
@@ -121,7 +121,15 @@ sub get_attributes {
     $value =~ s/"//g if $value;
     $key =~ s/^\s+//;
     $key =~ s/\s+$//;
-    $attributes{$key} = $value ? $self->decode_string($value) : $value;
+    $value = $self->decode_string($value) if $value;
+
+    if (defined($attributes{$key})) {
+      my @values = (ref($attributes{$key}) eq 'ARRAY' ? @{$attributes{$key}} : ($attributes{$key}));
+      push(@values, $value);
+      $attributes{$key} = \@values;
+    } else {
+      $attributes{$key} = $value;
+    }
   }
   return \%attributes;
 }