Fix join warning by converting undefs to empty strings
This commit is contained in:
parent
72235d84a4
commit
8116d356cd
@ -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);
|
||||
}
|
||||
|
Loading…
x
Reference in New Issue
Block a user