Do not silently truncate files on perlasm errors

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

diff --git a/crypto/sha/asm/sha1-thumb.pl b/crypto/sha/asm/sha1-thumb.pl
index dbe57547005506db61f0c28b95a929d9a781ad64..b89bd978c371cb803bc5d2da753c4bdaf5bd1ffe 100644 (file)
--- a/crypto/sha/asm/sha1-thumb.pl
+++ b/crypto/sha/asm/sha1-thumb.pl
@@ -262,4 +262,4 @@ $code.=<<___;
 ___
 
 print $code;
-close STDOUT; # enforce flush
+close STDOUT or die "error closing STDOUT"; # enforce flush