In Perl, -z is defined as checking if a "file has zero size" and makes no mention what it does when given a directory. It looks like the behavior differs across platforms, which is why on Windows the SARIF file was always being deleted.
Patch by Joe Ranieri.
llvm-svn: 366941
# Remove any stale files at exit.
END {
- if (defined $ResultFile && -z $ResultFile) {
+ if (defined $ResultFile && $ResultFile ne "") {
unlink($ResultFile);
}
if (defined $CleanupFile) {
DIR => $HtmlDir);
$ResultFile = $f;
# If the HtmlDir is not set, we should clean up the plist files.
- if (!defined $HtmlDir || -z $HtmlDir) {
+ if (!defined $HtmlDir || $HtmlDir eq "") {
$CleanupFile = $f;
}
}