Do not silently truncate files on perlasm errors

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

diff --git a/crypto/sha/asm/sha1-parisc.pl b/crypto/sha/asm/sha1-parisc.pl
index 00c85378e298f66a5c1a2182e573aa0dedcd85f4..4f64346306bf1e1e545904372c1e19546c959d37 100644 (file)
--- a/crypto/sha/asm/sha1-parisc.pl
+++ b/crypto/sha/asm/sha1-parisc.pl
@@ -279,4 +279,4 @@ foreach(split("\n",$code)) {
 
        print $_,"\n";
 }
-close STDOUT;
+close STDOUT or die "error closing STDOUT";