Do not silently truncate files on perlasm errors

[openssl.git] / crypto / whrlpool / asm / wp-x86_64.pl

diff --git a/crypto/whrlpool/asm/wp-x86_64.pl b/crypto/whrlpool/asm/wp-x86_64.pl
index e5b51501e96b254583c643b9c120ecb4e8963f15..ee09234adb7e2c2cbb5f68b6b7470af6ca13cef9 100644 (file)
--- a/crypto/whrlpool/asm/wp-x86_64.pl
+++ b/crypto/whrlpool/asm/wp-x86_64.pl
@@ -616,4 +616,4 @@ ___
 
 $code =~ s/\`([^\`]*)\`/eval $1/gem;
 print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";