Do not silently truncate files on perlasm errors

[openssl.git] / crypto / md5 / asm / md5-586.pl

diff --git a/crypto/md5/asm/md5-586.pl b/crypto/md5/asm/md5-586.pl
index 74b82f02cdee5438daa3812a5579cbb6701e94dc..b03bf11ed4bacbd33a05f3cd5cf0c9fbaa8f2d18 100644 (file)
--- a/crypto/md5/asm/md5-586.pl
+++ b/crypto/md5/asm/md5-586.pl
@@ -45,7 +45,7 @@ $X="esi";
 &md5_block("md5_block_asm_data_order");
 &asm_finish();
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
 
 sub Np
        {