Do not silently truncate files on perlasm errors

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

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