Do not silently truncate files on perlasm errors

[openssl.git] / crypto / bn / asm / x86_64-mont5.pl

diff --git a/crypto/bn/asm/x86_64-mont5.pl b/crypto/bn/asm/x86_64-mont5.pl
index 5e70547704f87f1077cf5f1eaf540f1dda7f5cce..0eb127b4e766e9823002a7ac9ef62e2bf5fd3d7a 100755 (executable)
--- a/crypto/bn/asm/x86_64-mont5.pl
+++ b/crypto/bn/asm/x86_64-mont5.pl
@@ -3962,4 +3962,4 @@ ___
 $code =~ s/\`([^\`]*)\`/eval($1)/gem;
 
 print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";