Do not silently truncate files on perlasm errors

[oweals/openssl.git] / crypto / poly1305 / asm / poly1305-armv4.pl

diff --git a/crypto/poly1305/asm/poly1305-armv4.pl b/crypto/poly1305/asm/poly1305-armv4.pl
index 8d6049829d7405b7983ed7867a75a9cf2c469a0a..2884cda7714a4fb428bdcbca72499eb10dcb9d01 100755 (executable)
--- a/crypto/poly1305/asm/poly1305-armv4.pl
+++ b/crypto/poly1305/asm/poly1305-armv4.pl
@@ -1252,4 +1252,4 @@ foreach (split("\n",$code)) {
 
        print $_,"\n";
 }
-close STDOUT; # enforce flush
+close STDOUT or die "error closing STDOUT"; # enforce flush