fix precidence problem, thanks bod

master
joey 2007-03-03 00:46:21 +00:00
parent bd7c6d62fc
commit 7562417578
1 changed files with 1 additions and 3 deletions

View File

@ -293,9 +293,7 @@ sub writefile ($$$;$$) { #{{{
$writer->(\*OUT, $cleanup); $writer->(\*OUT, $cleanup);
} }
else { else {
if (length $content) { print OUT $content or error("failed writing to $newfile: $!", $cleanup);
print OUT $content || error("failed writing to $newfile: $!", $cleanup);
}
} }
close OUT || error("failed saving $newfile: $!", $cleanup); close OUT || error("failed saving $newfile: $!", $cleanup);
rename($newfile, "$destdir/$file") || rename($newfile, "$destdir/$file") ||