Do not silently truncate files on perlasm errors

[openssl.git] / crypto / sha / asm / sha1-mb-x86_64.pl

diff --git a/crypto/sha/asm/sha1-mb-x86_64.pl b/crypto/sha/asm/sha1-mb-x86_64.pl
index 2da2ffffe5d6bc94259ee201912d782e1f686013..71aacc569a774949eb172d419b4091845f042366 100644 (file)
--- a/crypto/sha/asm/sha1-mb-x86_64.pl
+++ b/crypto/sha/asm/sha1-mb-x86_64.pl
@@ -1627,4 +1627,4 @@ foreach (split("\n",$code)) {
        print $_,"\n";
 }
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT";