Do not silently truncate files on perlasm errors

[oweals/openssl.git] / crypto / aes / asm / aes-mips.pl

diff --git a/crypto/aes/asm/aes-mips.pl b/crypto/aes/asm/aes-mips.pl
index c64933e93c99538551bc9c3198104e2b56690122..73ed9885262899acf6bfe6324c965ca9ac6afac6 100644 (file)
--- a/crypto/aes/asm/aes-mips.pl
+++ b/crypto/aes/asm/aes-mips.pl
@@ -2203,4 +2203,4 @@ foreach (split("\n",$code)) {
        print $_,"\n";
 }
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT";