Do not silently truncate files on perlasm errors

[openssl.git] / crypto / sha / asm / sha512-mips.pl

diff --git a/crypto/sha/asm/sha512-mips.pl b/crypto/sha/asm/sha512-mips.pl
index c581bdcb04d08da6e328fc3bec36ff4c277c7943..5f585eb91dd1fec7168caddfea99a692670a7eec 100644 (file)
--- a/crypto/sha/asm/sha512-mips.pl
+++ b/crypto/sha/asm/sha512-mips.pl
@@ -524,4 +524,4 @@ ___
 
 $code =~ s/\`([^\`]*)\`/eval $1/gem;
 print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";