Do not silently truncate files on perlasm errors

[openssl.git] / crypto / sha / asm / sha512-ppc.pl

diff --git a/crypto/sha/asm/sha512-ppc.pl b/crypto/sha/asm/sha512-ppc.pl
index 722621ec3fefff3760372979bae14203235f4ef6..f5c4138d0cdfe395a92a081156ad2f29edeca022 100755 (executable)
--- a/crypto/sha/asm/sha512-ppc.pl
+++ b/crypto/sha/asm/sha512-ppc.pl
@@ -799,4 +799,4 @@ ___
 
 $code =~ s/\`([^\`]*)\`/eval $1/gem;
 print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";