Do not silently truncate files on perlasm errors

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

diff --git a/crypto/sha/asm/sha1-armv8.pl b/crypto/sha/asm/sha1-armv8.pl
index 3ba871fedee65f0bce247e8da67a2c588dbbd134..008f6959d41cdeba4f08d84a2c311680f9b8657c 100644 (file)
--- a/crypto/sha/asm/sha1-armv8.pl
+++ b/crypto/sha/asm/sha1-armv8.pl
@@ -361,4 +361,4 @@ foreach(split("\n",$code)) {
        print $_,"\n";
 }
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT: $!";