Do not silently truncate files on perlasm errors

[openssl.git] / crypto / sha / asm / sha512-586.pl

diff --git a/crypto/sha/asm/sha512-586.pl b/crypto/sha/asm/sha512-586.pl
index c20a673dfc16998536d6dfb11523deec8a3a4907..78cafda6a2a2e7cb2072ec4b861aba0399cac5cb 100644 (file)
--- a/crypto/sha/asm/sha512-586.pl
+++ b/crypto/sha/asm/sha512-586.pl
@@ -921,4 +921,4 @@ sub BODY_00_15_ssse3 {              # "phase-less" copy of BODY_00_15_sse2
 
 &asm_finish();
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT";