Do not silently truncate files on perlasm errors

[openssl.git] / crypto / camellia / asm / cmll-x86.pl

diff --git a/crypto/camellia/asm/cmll-x86.pl b/crypto/camellia/asm/cmll-x86.pl
index 1a3ec88b392160beb887d5f84c86908b89df2b2d..d1e522fbd2baf9192f18fdc9267e310f13aa5b3b 100644 (file)
--- a/crypto/camellia/asm/cmll-x86.pl
+++ b/crypto/camellia/asm/cmll-x86.pl
@@ -1146,4 +1146,4 @@ my ($s0,$s1,$s2,$s3) = @T;
 
 &asm_finish();
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT";