From 9865e7ab6916889dc213edce30179966b6920c45 Mon Sep 17 00:00:00 2001
From: Lukas Mueller <lam87@cornell.edu>
Date: Wed, 3 Oct 2018 00:03:09 -0400
Subject: [PATCH] fix undefined value warnings in File.pm

---
 lib/CXGN/Dataset/File.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/CXGN/Dataset/File.pm b/lib/CXGN/Dataset/File.pm
index d8b9ce592..d14e43f37 100644
--- a/lib/CXGN/Dataset/File.pm
+++ b/lib/CXGN/Dataset/File.pm
@@ -50,7 +50,7 @@ override('retrieve_phenotypes',
 	     my $phenotypes = $self->SUPER::retrieve_phenotypes();
 	     my $phenotype_string = "";
 	     foreach my $line (@$phenotypes) {
-			 my $s = join "\t", @$line;
+			 my $s = join "\t", map { $_ ? $_ : "" } @$line;
 			 $s =~ s/\n//g;
 			 $s =~ s/\r//g;
 			 $phenotype_string .= $s."\n";
-- 
2.11.4.GIT