Do not silently truncate files on perlasm errors

[openssl.git] / crypto / modes / asm / ghash-sparcv9.pl

diff --git a/crypto/modes/asm/ghash-sparcv9.pl b/crypto/modes/asm/ghash-sparcv9.pl
index b8b102282fd43a96c9845241022fe9a9afa4abcf..ac61df6069c24f29e2de68373071c2e9cd4f33bd 100644 (file)
--- a/crypto/modes/asm/ghash-sparcv9.pl
+++ b/crypto/modes/asm/ghash-sparcv9.pl
@@ -577,4 +577,4 @@ foreach (split("\n",$code)) {
        print $_,"\n";
 }
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT";