Also check for errors in x86_64-xlate.pl.

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

diff --git a/crypto/sha/asm/sha512-s390x.pl b/crypto/sha/asm/sha512-s390x.pl
index 78d710c30e0f35bf61b5ec691b41c626342a9246..5c6786d85c07c1080e50f2aee1b45fe9a96c09f9 100644 (file)
--- 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 or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";