runtests: show error message if file can't be written

This commit is contained in:
Dan Fandrich 2023-03-29 14:15:16 -07:00
parent 58e85d6d1d
commit 4ced75b7ce

View File

@ -3997,14 +3997,17 @@ sub singletest_prepare {
mkdir $d; # 0777
}
}
open(my $outfile, ">", "$filename");
binmode $outfile; # for crapage systems, use binary
if($fileattr{'nonewline'}) {
# cut off the final newline
chomp($fileContent);
if (open(my $outfile, ">", "$filename")) {
binmode $outfile; # for crapage systems, use binary
if($fileattr{'nonewline'}) {
# cut off the final newline
chomp($fileContent);
}
print $outfile $fileContent;
close($outfile);
} else {
logmsg "ERROR: cannot write $filename\n";
}
print $outfile $fileContent;
close($outfile);
}
}
return ($why, 0);