Do not silently truncate files on perlasm errors

[openssl.git] / crypto / bn / asm / ppc.pl

diff --git a/crypto/bn/asm/ppc.pl b/crypto/bn/asm/ppc.pl
index 4b4e6c610095481143b621aa3244668ff77c7ba9..a9f50a8ebf94446611a11429fabffa026a80f55d 100644 (file)
--- a/crypto/bn/asm/ppc.pl
+++ b/crypto/bn/asm/ppc.pl
@@ -2013,4 +2013,4 @@ Lppcasm_maw_adios:
 EOF
 $data =~ s/\`([^\`]*)\`/eval $1/gem;
 print $data;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";