Do not silently truncate files on perlasm errors

[openssl.git] / crypto / chacha / asm / chacha-x86_64.pl

diff --git a/crypto/chacha/asm/chacha-x86_64.pl b/crypto/chacha/asm/chacha-x86_64.pl
index fee0a963a9df1b4bf58a9040c1af034a891614a0..25140104cee866e588883557a0ffb716e92ad1d6 100755 (executable)
--- a/crypto/chacha/asm/chacha-x86_64.pl
+++ b/crypto/chacha/asm/chacha-x86_64.pl
@@ -4004,4 +4004,4 @@ foreach (split("\n",$code)) {
        print $_,"\n";
 }
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT";