Do not silently truncate files on perlasm errors

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

diff --git a/crypto/sha/asm/keccak1600-avx2.pl b/crypto/sha/asm/keccak1600-avx2.pl
index a56756fb3126adf6ffd3c7ee611d95f188f99e43..5e5e5db2c339b05f1bed901ff703643c993a0af3 100755 (executable)
--- a/crypto/sha/asm/keccak1600-avx2.pl
+++ b/crypto/sha/asm/keccak1600-avx2.pl
@@ -478,4 +478,4 @@ ___
 
 $output=pop and open STDOUT,">$output";
 print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";