Do not silently truncate files on perlasm errors

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

diff --git a/crypto/whrlpool/asm/wp-mmx.pl b/crypto/whrlpool/asm/wp-mmx.pl
index 39cd2204568c8767070fe7a5ae6794cf7b1c4462..812c42f1b2aeea193bf645410fae7840bd85b661 100644 (file)
--- a/crypto/whrlpool/asm/wp-mmx.pl
+++ b/crypto/whrlpool/asm/wp-mmx.pl
@@ -503,4 +503,4 @@ for($i=0;$i<8;$i++) {
 &function_end_B("whirlpool_block_mmx");
 &asm_finish();
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT";