X-Git-Url: https://git.librecmc.org/?a=blobdiff_plain;ds=sidebyside;f=crypto%2Fsha%2Fasm%2Fsha512-s390x.pl;h=5c6786d85c07c1080e50f2aee1b45fe9a96c09f9;hb=a21314dbbc56cd30580123d74b3106a628540965;hp=65cb88316602cd656ea46a81b77623c4c9f6b394;hpb=1aa89a7a3afb053d0c0b7fad8d3ea1b0a5447289;p=oweals%2Fopenssl.git

diff --git a/crypto/sha/asm/sha512-s390x.pl b/crypto/sha/asm/sha512-s390x.pl
index 65cb883166..5c6786d85c 100644
--- a/crypto/sha/asm/sha512-s390x.pl
+++ b/crypto/sha/asm/sha512-s390x.pl
@@ -323,4 +323,4 @@ $code =~ s/\`([^\`]*)\`/eval $1/gem;
 $code =~ s/(srlg\s+)(%r[0-9]+),/$1$2,$2,/gm;
 
 print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT: $!";