Do not silently truncate files on perlasm errors

[openssl.git] / crypto / aes / asm / aes-armv4.pl

diff --git a/crypto/aes/asm/aes-armv4.pl b/crypto/aes/asm/aes-armv4.pl
index 9367f1f33b8442780926fb829d25d8c7676327b7..2461535012d39a80cb29ead98c13a7a99cf048b0 100644 (file)
--- a/crypto/aes/asm/aes-armv4.pl
+++ b/crypto/aes/asm/aes-armv4.pl
@@ -1245,4 +1245,4 @@ while(<SELF>) {
 close SELF;
 
 print $code;
-close STDOUT;  # enforce flush
+close STDOUT or die "error closing STDOUT";    # enforce flush