Do not silently truncate files on perlasm errors

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

diff --git a/crypto/ec/asm/ecp_nistz256-sparcv9.pl b/crypto/ec/asm/ecp_nistz256-sparcv9.pl
index 4383bea4a7bed6260fa765dac164ca25fc91d4fd..f345623b9ab1752018fb544af763fefea6d02057 100755 (executable)
--- a/crypto/ec/asm/ecp_nistz256-sparcv9.pl
+++ b/crypto/ec/asm/ecp_nistz256-sparcv9.pl
@@ -3057,4 +3057,4 @@ foreach (split("\n",$code)) {
        print $_,"\n";
 }
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT: $!";