Do not silently truncate files on perlasm errors

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

diff --git a/crypto/bn/asm/alpha-mont.pl b/crypto/bn/asm/alpha-mont.pl
index b46c79ca4f738b69dd36b9914a725619a1b22d78..b242098c753f671795af52018d89b9fb65327e8d 100644 (file)
--- a/crypto/bn/asm/alpha-mont.pl
+++ b/crypto/bn/asm/alpha-mont.pl
@@ -324,4 +324,4 @@ bn_mul_mont:
 ___
 
 print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";