Do not silently truncate files on perlasm errors

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

diff --git a/crypto/sha/asm/keccak1600-mmx.pl b/crypto/sha/asm/keccak1600-mmx.pl
index 8be05a1f58258a51db7ea2c4fb83e0fed7cf1831..3976a7b101221cad71c14c80c4feefb1d92bb18c 100755 (executable)
--- a/crypto/sha/asm/keccak1600-mmx.pl
+++ b/crypto/sha/asm/keccak1600-mmx.pl
@@ -436,4 +436,4 @@ sub Rho() {                         ######### regular Rho step
 
 &asm_finish();
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT";