Do not silently truncate files on perlasm errors

[openssl.git] / crypto / modes / asm / ghash-s390x.pl

diff --git a/crypto/modes/asm/ghash-s390x.pl b/crypto/modes/asm/ghash-s390x.pl
index 5355a30748e181ebcaf4594e18bd899a21b1e4fa..b9a637628f6f02698acfee60ac3959a4a9e541d9 100644 (file)
--- a/crypto/modes/asm/ghash-s390x.pl
+++ b/crypto/modes/asm/ghash-s390x.pl
@@ -261,4 +261,4 @@ ___
 
 $code =~ s/\`([^\`]*)\`/eval $1/gem;
 print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";