Do not silently truncate files on perlasm errors

[openssl.git] / crypto / ec / asm / x25519-ppc64.pl

diff --git a/crypto/ec/asm/x25519-ppc64.pl b/crypto/ec/asm/x25519-ppc64.pl
index e2e0a14f493cce3af51e67437b8469c1c4f347a4..9a48d2ad0e5f9cce66bac8790380d79eae15d6c2 100755 (executable)
--- a/crypto/ec/asm/x25519-ppc64.pl
+++ b/crypto/ec/asm/x25519-ppc64.pl
@@ -824,4 +824,4 @@ ___
 
 $code =~ s/\`([^\`]*)\`/eval $1/gem;
 print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";