Do not silently truncate files on perlasm errors

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

diff --git a/crypto/bn/asm/x86-mont.pl b/crypto/bn/asm/x86-mont.pl
index 864816fb1ab3dadf447a0e82addf1822bafca78d..e23433594b41b51b05589f93888088e14974303d 100755 (executable)
--- a/crypto/bn/asm/x86-mont.pl
+++ b/crypto/bn/asm/x86-mont.pl
@@ -627,4 +627,4 @@ $sbit=$num;
 
 &asm_finish();
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT";