Do not silently truncate files on perlasm errors

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

diff --git a/crypto/ec/asm/ecp_nistz256-armv8.pl b/crypto/ec/asm/ecp_nistz256-armv8.pl
index 3be0c1c02665ba283adb6aef0abe530cf37362fc..794f7631e43c63d8368c68f436da42e195093e46 100644 (file)
--- a/crypto/ec/asm/ecp_nistz256-armv8.pl
+++ b/crypto/ec/asm/ecp_nistz256-armv8.pl
@@ -1874,4 +1874,4 @@ foreach (split("\n",$code)) {
 
        print $_,"\n";
 }
-close STDOUT;  # enforce flush
+close STDOUT or die "error closing STDOUT";    # enforce flush