Do not silently truncate files on perlasm errors

[oweals/openssl.git] / crypto / chacha / asm / chacha-armv4.pl

diff --git a/crypto/chacha/asm/chacha-armv4.pl b/crypto/chacha/asm/chacha-armv4.pl
index 8a9f6c4f19ddc8a6e617a416650acba79e90a9ca..021da300ee6bb5979cc6f131d59ebf5548d73608 100755 (executable)
--- a/crypto/chacha/asm/chacha-armv4.pl
+++ b/crypto/chacha/asm/chacha-armv4.pl
@@ -1166,4 +1166,4 @@ foreach (split("\n",$code)) {
 
        print $_,"\n";
 }
-close STDOUT;
+close STDOUT or die "error closing STDOUT";