Do not silently truncate files on perlasm errors

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

diff --git a/crypto/sha/asm/sha512-armv8.pl b/crypto/sha/asm/sha512-armv8.pl
index 2051157ccadcabda376a6680ef9936e8859f7a93..228b643c830fab2f018fcc0c22c25c106f1eb7c1 100644 (file)
--- a/crypto/sha/asm/sha512-armv8.pl
+++ b/crypto/sha/asm/sha512-armv8.pl
@@ -891,4 +891,4 @@ foreach(split("\n",$code)) {
        print $_,"\n";
 }
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT";