Do not silently truncate files on perlasm errors

[openssl.git] / crypto / sha / asm / sha1-sparcv9.pl

diff --git a/crypto/sha/asm/sha1-sparcv9.pl b/crypto/sha/asm/sha1-sparcv9.pl
index 8ef8b5fee019eaf145634c1e0ea6a674de6fdfc6..585996b13da860244f04ecc41e6a60753ffb1b2c 100644 (file)
--- a/crypto/sha/asm/sha1-sparcv9.pl
+++ b/crypto/sha/asm/sha1-sparcv9.pl
@@ -430,4 +430,4 @@ foreach (split("\n",$code)) {
        print $_,"\n";
 }
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT";