Do not silently truncate files on perlasm errors

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

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