Fix join warning by converting undefs to empty strings

This commit is contained in:
Jamie Cameron 2014-12-29 09:44:42 -08:00
parent 72235d84a4
commit 8116d356cd

View File

@ -83,7 +83,8 @@ my $d;
my $fh = "DIRS";
&open_tempfile($fh, ">$directories_file");
foreach $d (@{$_[0]}) {
&print_tempfile($fh, join("\t", @$d),"\n");
my @safed = map { defined($_) ? $_ : "" } @$d;
&print_tempfile($fh, join("\t", @safed),"\n");
}
&close_tempfile($fh);
}