Do not silently truncate files on perlasm errors

[oweals/openssl.git] / crypto / bn / asm / vis3-mont.pl

diff --git a/crypto/bn/asm/vis3-mont.pl b/crypto/bn/asm/vis3-mont.pl
index 04833a0c876df048b05c67dcba38236cab7720c2..826bb941f4097b2b78dc06c7ca0d9f30d25efc68 100644 (file)
--- a/crypto/bn/asm/vis3-mont.pl
+++ b/crypto/bn/asm/vis3-mont.pl
@@ -381,4 +381,4 @@ foreach (split("\n",$code)) {
        print $_,"\n";
 }
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT: $!";