Do not silently truncate files on perlasm errors

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

diff --git a/crypto/bf/asm/bf-586.pl b/crypto/bf/asm/bf-586.pl
index 8622f5b12a8921f4b32880986d0ccd96b48c1c30..a4317f7134ef1328dc8424de89de1e66b7b483a4 100644 (file)
--- a/crypto/bf/asm/bf-586.pl
+++ b/crypto/bf/asm/bf-586.pl
@@ -31,7 +31,7 @@ $tmp4="edx";
 &cbc("BF_cbc_encrypt","BF_encrypt","BF_decrypt",1,4,5,3,-1,-1);
 &asm_finish();
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
 
 sub BF_encrypt
        {