Do not silently truncate files on perlasm errors

[openssl.git] / crypto / aes / asm / vpaes-x86_64.pl

diff --git a/crypto/aes/asm/vpaes-x86_64.pl b/crypto/aes/asm/vpaes-x86_64.pl
index 51ff5df4d3685570b6f73290d64c3e9cde08efd9..5c1dc9f9ea5758d83c678d4065e3e1fe36e0f294 100644 (file)
--- a/crypto/aes/asm/vpaes-x86_64.pl
+++ b/crypto/aes/asm/vpaes-x86_64.pl
@@ -1240,4 +1240,4 @@ $code =~ s/\`([^\`]*)\`/eval($1)/gem;
 
 print $code;
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT";