Do not silently truncate files on perlasm errors

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

diff --git a/crypto/sha/asm/keccak1600-avx512.pl b/crypto/sha/asm/keccak1600-avx512.pl
index be4a7acec2093764c2284eafd6bfe994a858194c..52d3f2929e1fc03426fe8167d2f505dfebf7d7a0 100755 (executable)
--- a/crypto/sha/asm/keccak1600-avx512.pl
+++ b/crypto/sha/asm/keccak1600-avx512.pl
@@ -547,4 +547,4 @@ ___
 
 $output=pop and open STDOUT,">$output";
 print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";