Do not silently truncate files on perlasm errors

[oweals/openssl.git] / crypto / md5 / asm / md5-sparcv9.pl

diff --git a/crypto/md5/asm/md5-sparcv9.pl b/crypto/md5/asm/md5-sparcv9.pl
index fd77b8b1de8eafd0d0abf0b406a4c1fb742fcc1c..9cf039656f5b8cc1f5bf2ef2052c7beed7caf1d8 100644 (file)
--- a/crypto/md5/asm/md5-sparcv9.pl
+++ b/crypto/md5/asm/md5-sparcv9.pl
@@ -436,4 +436,4 @@ foreach (split("\n",$code)) {
        print $_,"\n";
 }
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT";