Do not silently truncate files on perlasm errors

[thirdparty/openssl.git] / crypto / ripemd / asm / rmd-586.pl

diff --git a/crypto/ripemd/asm/rmd-586.pl b/crypto/ripemd/asm/rmd-586.pl
index f6b283c9417ce14c5d450de1d2cf5724f2473ac0..45f03eb36b90f9d2500c9e0dfe9a3f0f321e0c7b 100644 (file)
--- a/crypto/ripemd/asm/rmd-586.pl
+++ b/crypto/ripemd/asm/rmd-586.pl
@@ -69,7 +69,7 @@ $KR3=0x7A6D76E9;
 &ripemd160_block("ripemd160_block_asm_data_order");
 &asm_finish();
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
 
 sub Xv
        {