Do not silently truncate files on perlasm errors

[openssl.git] / crypto / sha / asm / keccak1600-ppc64.pl

diff --git a/crypto/sha/asm/keccak1600-ppc64.pl b/crypto/sha/asm/keccak1600-ppc64.pl
index 6f5906352df9642c2e1f8e8edca7f3351cce48b0..fb73291c3aaa3990f043a6f495cff4bb6241b602 100755 (executable)
--- a/crypto/sha/asm/keccak1600-ppc64.pl
+++ b/crypto/sha/asm/keccak1600-ppc64.pl
@@ -759,4 +759,4 @@ ___
 
 $code =~ s/\`([^\`]*)\`/eval $1/gem;
 print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";