Allow ID of 0 in trait files

bioperl · Jun 9, 2012 · 910afe6 · 910afe6
1 parent 63cd140
commit 910afe6
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/Bio/Tree/TreeFunctionsI.pm b/Bio/Tree/TreeFunctionsI.pm
@@ -1164,7 +1164,7 @@ sub _read_trait_file {
         }
 
         my $id = $line[0];
-        last unless $id;
+        last if (not defined $id) or ($id eq '');
 
         # Skip empty trait values
         my $value = $line[$column];

diff --git a/t/data/traits.tab b/t/data/traits.tab
@@ -1,4 +1,5 @@
 "id"	"assoc"	disp	"intermediate"
+0	"blue"	blue	"red"
 1	"blue"	blue	"red"
 2	"blue"		"blue"
 3	"blue"	blue	"blue"