Do not silently truncate files on perlasm errors

[openssl.git] / crypto / sha / asm / keccak1600-x86_64.pl

diff --git a/crypto/sha/asm/keccak1600-x86_64.pl b/crypto/sha/asm/keccak1600-x86_64.pl
index aee356adbb892fb5513eff239dac43ca0f73cd2e..808319cff1b5fe601ff32e41c596de5148ddad51 100755 (executable)
--- a/crypto/sha/asm/keccak1600-x86_64.pl
+++ b/crypto/sha/asm/keccak1600-x86_64.pl
@@ -608,4 +608,4 @@ foreach (split("\n",$code)) {
        print $_, "\n";
 }
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT";