Do not silently truncate files on perlasm errors

[openssl.git] / crypto / bn / asm / co-586.pl

diff --git a/crypto/bn/asm/co-586.pl b/crypto/bn/asm/co-586.pl
index d9263094b4b09997444b1fa8783b866e8380d272..a9be2729e2f63cbef2e260d8bdb70c1947a90546 100644 (file)
--- a/crypto/bn/asm/co-586.pl
+++ b/crypto/bn/asm/co-586.pl
@@ -21,7 +21,7 @@ $output = pop and open STDOUT,">$output";
 
 &asm_finish();
 
 
 &asm_finish();
 

-close STDOUT;
+close STDOUT or die "error closing STDOUT";

 
 sub mul_add_c
        {
 
 sub mul_add_c
        {