Do not silently truncate files on perlasm errors

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

diff --git a/crypto/sha/asm/sha512-c64xplus.pl b/crypto/sha/asm/sha512-c64xplus.pl
index b7a12544b9fc29c83d51b7f9a17872bf15453484..14b6bb5ab66194c3327c6452c763ec497ca88255 100644 (file)
--- a/crypto/sha/asm/sha512-c64xplus.pl
+++ b/crypto/sha/asm/sha512-c64xplus.pl
@@ -434,4 +434,4 @@ K512:
 ___
 
 print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";