Do not silently truncate files on perlasm errors

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

diff --git a/crypto/sha/asm/keccak1600-c64x.pl b/crypto/sha/asm/keccak1600-c64x.pl
index 7433c9987ea43abefca72d075f61abc3b356ab37..9238dd5ebb96a99560e02931a8470a300d5d9b53 100755 (executable)
--- a/crypto/sha/asm/keccak1600-c64x.pl
+++ b/crypto/sha/asm/keccak1600-c64x.pl
@@ -881,4 +881,4 @@ ___
 
 $output=pop and open STDOUT,">$output";
 print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";