Do not silently truncate files on perlasm errors

[openssl.git] / crypto / sha / asm / sha512-armv4.pl

diff --git a/crypto/sha/asm/sha512-armv4.pl b/crypto/sha/asm/sha512-armv4.pl
index 410dde2cde3f0834de288c9862ebbbf9585a9eb7..7c6ac41b5b60fd76421648e07900f6f74800a77a 100644 (file)
--- a/crypto/sha/asm/sha512-armv4.pl
+++ b/crypto/sha/asm/sha512-armv4.pl
@@ -677,4 +677,4 @@ while(<SELF>) {
 close SELF;
 
 print $code;
-close STDOUT; # enforce flush
+close STDOUT or die "error closing STDOUT"; # enforce flush