Do not silently truncate files on perlasm errors

[openssl.git] / crypto / sha / asm / keccak1600-s390x.pl

diff --git a/crypto/sha/asm/keccak1600-s390x.pl b/crypto/sha/asm/keccak1600-s390x.pl
index 99cbee30b6d32ff0730e21fe8859cf80efafd52f..5dc970ef55252d34844887cfe54091c31ab657de 100755 (executable)
--- a/crypto/sha/asm/keccak1600-s390x.pl
+++ b/crypto/sha/asm/keccak1600-s390x.pl
@@ -559,4 +559,4 @@ ___
 $code =~ s/(srlg\s+)(%r[0-9]+),/$1$2,$2,/gm;
 
 print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";