Do not silently truncate files on perlasm errors

[openssl.git] / crypto / des / asm / dest4-sparcv9.pl

diff --git a/crypto/des/asm/dest4-sparcv9.pl b/crypto/des/asm/dest4-sparcv9.pl
index 0cf25add75ac0638b92b90b7abbb74e4aee129b3..90438f0e1b59cc8f6fecd2d90f9b7134df48d097 100644 (file)
--- a/crypto/des/asm/dest4-sparcv9.pl
+++ b/crypto/des/asm/dest4-sparcv9.pl
@@ -623,4 +623,4 @@ ___
 
 &emit_assembler();
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT";