Do not silently truncate files on perlasm errors

[openssl.git] / crypto / ec / asm / ecp_nistz256-armv4.pl

diff --git a/crypto/ec/asm/ecp_nistz256-armv4.pl b/crypto/ec/asm/ecp_nistz256-armv4.pl
index 4809360ac427325bb0a22bb7a26960c88dd79028..8813c97ae88b02cbcc932eef53c9e1035d894e07 100755 (executable)
--- a/crypto/ec/asm/ecp_nistz256-armv4.pl
+++ b/crypto/ec/asm/ecp_nistz256-armv4.pl
@@ -1853,4 +1853,4 @@ foreach (split("\n",$code)) {
 
        print $_,"\n";
 }
-close STDOUT;  # enforce flush
+close STDOUT or die "error closing STDOUT";    # enforce flush