Do not silently truncate files on perlasm errors

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

diff --git a/crypto/aes/asm/aes-sparcv9.pl b/crypto/aes/asm/aes-sparcv9.pl
index f80638639da34189a7a41367ccaf676ab547fd19..f57a9a3fea2577112dcee6ef9b5d5102c54dfa53 100755 (executable)
--- a/crypto/aes/asm/aes-sparcv9.pl
+++ b/crypto/aes/asm/aes-sparcv9.pl
@@ -1188,4 +1188,4 @@ ___
 $code =~ s/fmovs.*$//gm;
 
 print $code;
-close STDOUT;  # ensure flush
+close STDOUT or die "error closing STDOUT";    # ensure flush