Do not silently truncate files on perlasm errors

[openssl.git] / crypto / bn / asm / c64xplus-gf2m.pl

diff --git a/crypto/bn/asm/c64xplus-gf2m.pl b/crypto/bn/asm/c64xplus-gf2m.pl
index d4913867d0b6102b39d56fee65eb2a29228be0ce..da9b24a5baa257d7902096abe99e635f5f612e28 100644 (file)
--- a/crypto/bn/asm/c64xplus-gf2m.pl
+++ b/crypto/bn/asm/c64xplus-gf2m.pl
@@ -156,4 +156,4 @@ $code.=<<___;
 ___
 
 print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";