Do not silently truncate files on perlasm errors

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

diff --git a/crypto/sha/asm/sha1-c64xplus.pl b/crypto/sha/asm/sha1-c64xplus.pl
index 66f15e22fd3dfb3e58573eb85fbcb57593835151..4a4772eaabb943dbff99fd97f5901fc7bc14b698 100644 (file)
--- a/crypto/sha/asm/sha1-c64xplus.pl
+++ b/crypto/sha/asm/sha1-c64xplus.pl
@@ -333,4 +333,4 @@ $code.=<<___;
 ___
 
 print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";