Merge BoringSSL 549e4e7: Align with upstream on 'close STDOUT' lines.

crypto/chacha/asm/chacha-armv4.pl

@@ -1164,4 +1164,4 @@ foreach (split("\n",$code)) {
 
 	print $_,"\n";
 }
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";

crypto/chacha/asm/chacha-armv8.pl

@@ -1141,4 +1141,4 @@ foreach (split("\n",$code)) {
 
 	print $_,"\n";
 }
-close STDOUT or die "error closing STDOUT";	# flush
+close STDOUT or die "error closing STDOUT: $!";	# flush

crypto/chacha/asm/chacha-x86.pl

@@ -769,4 +769,4 @@ sub SSSE3ROUND {	# critical path is 20 "SIMD ticks" per round
 
 &asm_finish();
 
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";

crypto/chacha/asm/chacha-x86_64.pl

@@ -2032,4 +2032,4 @@ foreach (split("\n",$code)) {
 	print $_,"\n";
 }
 
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";

crypto/cipher_extra/asm/chacha20_poly1305_x86_64.pl

@@ -2559,4 +2559,4 @@ $code =~ s/\`([^\`]*)\`/eval $1/gem;
 
 print $code;
 
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";

crypto/fipsmodule/aes/asm/aesni-x86.pl

@@ -977,4 +977,4 @@ if ($PREFIX eq $AESNI_PREFIX) {
 
 &asm_finish();
 
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";

crypto/fipsmodule/aes/asm/aesni-x86_64.pl

@@ -1711,4 +1711,4 @@ $code =~ s/\bmovbe\s+%eax,\s*([0-9]+)\(%rsp\)/movbe($1)/gem;
 
 print $code;
 
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";

crypto/fipsmodule/aes/asm/aesv8-armx.pl

@@ -628,4 +628,4 @@ if ($flavour =~ /64/) {			######## 64-bit code
     }
 }
 
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";

crypto/fipsmodule/aes/asm/bsaes-armv7.pl

@@ -1139,4 +1139,4 @@ close SELF;
 
 print $code;
 
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";

crypto/fipsmodule/aes/asm/vpaes-armv7.pl

@@ -893,4 +893,4 @@ foreach (split("\n",$code)) {
 	print $_,"\n";
 }
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT: $!";

crypto/fipsmodule/aes/asm/vpaes-armv8.pl

@@ -834,4 +834,4 @@ ___
 
 print $code;
 
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";

crypto/fipsmodule/aes/asm/vpaes-x86.pl

@@ -607,4 +607,4 @@ $k_deskew=0x180;	# deskew tables: inverts the sbox's "skew"
 
 &asm_finish();
 
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";

crypto/fipsmodule/aes/asm/vpaes-x86_64.pl

@@ -1065,4 +1065,4 @@ $code =~ s/\`([^\`]*)\`/eval($1)/gem;
 
 print $code;
 
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";

crypto/fipsmodule/bn/asm/armv4-mont.pl

@@ -758,4 +758,4 @@ foreach (split("\n",$code)) {
 	print $_,"\n";
 }
 
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";

crypto/fipsmodule/bn/asm/armv8-mont.pl

@@ -1520,4 +1520,4 @@ ___
 
 print $code;
 
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";

crypto/fipsmodule/bn/asm/x86-mont.pl

@@ -333,4 +333,4 @@ $mask="mm7";
 
 &asm_finish();
 
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";

crypto/fipsmodule/bn/asm/x86_64-mont.pl

@@ -1578,4 +1578,4 @@ ___
 }
 
 print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";

crypto/fipsmodule/bn/asm/x86_64-mont5.pl

@@ -3930,4 +3930,4 @@ ___
 $code =~ s/\`([^\`]*)\`/eval($1)/gem;
 
 print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";

crypto/fipsmodule/ec/asm/p256-x86_64-asm.pl

@@ -4142,4 +4142,4 @@ ___
 
 $code =~ s/\`([^\`]*)\`/eval $1/gem;
 print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";

crypto/fipsmodule/modes/asm/aesni-gcm-x86_64.pl

@@ -1123,4 +1123,4 @@ $code =~ s/\`([^\`]*)\`/eval($1)/gem;
 
 print $code;
 
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";

crypto/fipsmodule/modes/asm/ghash-armv4.pl

@@ -297,4 +297,4 @@ foreach (split("\n",$code)) {
 
 	print $_,"\n";
 }
-close STDOUT or die "error closing STDOUT"; # enforce flush
+close STDOUT or die "error closing STDOUT: $!"; # enforce flush

crypto/fipsmodule/modes/asm/ghash-neon-armv8.pl

@@ -291,4 +291,4 @@ foreach (split("\n",$code)) {
 
 	print $_,"\n";
 }
-close STDOUT or die "error closing STDOUT"; # enforce flush
+close STDOUT or die "error closing STDOUT: $!"; # enforce flush

crypto/fipsmodule/modes/asm/ghash-x86.pl

@@ -659,7 +659,7 @@ my ($Xhi,$Xi)=@_;
 &asciz("GHASH for x86, CRYPTOGAMS by <appro\@openssl.org>");
 &asm_finish();
 
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
 
 # A question was risen about choice of vanilla MMX. Or rather why wasn't
 # SSE2 chosen instead? In addition to the fact that MMX runs on legacy

crypto/fipsmodule/modes/asm/ghash-x86_64.pl

@@ -1325,4 +1325,4 @@ $code =~ s/\`([^\`]*)\`/eval($1)/gem;
 
 print $code;
 
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";

crypto/fipsmodule/modes/asm/ghashv8-armx.pl

@@ -429,4 +429,4 @@ if ($flavour =~ /64/) {			######## 64-bit code
     }
 }
 
-close STDOUT or die "error closing STDOUT"; # enforce flush
+close STDOUT or die "error closing STDOUT: $!"; # enforce flush

crypto/fipsmodule/sha/asm/sha256-armv4.pl

@@ -733,4 +733,4 @@ foreach (split($/,$code)) {
 	print $_,"\n";
 }
 
-close STDOUT or die "error closing STDOUT"; # enforce flush
+close STDOUT or die "error closing STDOUT: $!"; # enforce flush

crypto/fipsmodule/sha/asm/sha512-armv4.pl

@@ -668,4 +668,4 @@ while(<SELF>) {
 close SELF;
 
 print $code;
-close STDOUT or die "error closing STDOUT"; # enforce flush
+close STDOUT or die "error closing STDOUT: $!"; # enforce flush

crypto/fipsmodule/sha/asm/sha512-armv8.pl

@@ -459,4 +459,4 @@ foreach(split("\n",$code)) {
 	print $_,"\n";
 }
 
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";

crypto/fipsmodule/sha/asm/sha512-x86_64.pl

@@ -1672,4 +1672,4 @@ foreach (split("\n",$code)) {
 
 	print $_,"\n";
 }
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";

crypto/perlasm/arm-xlate.pl

@@ -245,4 +245,4 @@ print "#endif  // !OPENSSL_NO_ASM\n";
 # See https://www.airs.com/blog/archives/518.
 print ".section\t.note.GNU-stack,\"\",\%progbits\n" if ($flavour =~ /linux/);
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT: $!";

crypto/perlasm/x86_64-xlate.pl

@@ -1260,7 +1260,7 @@ print "#endif\n"			if ($gas);
 # See https://www.airs.com/blog/archives/518.
 print ".section\t.note.GNU-stack,\"\",\@progbits\n" if ($elf);
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT: $!";
 
 #################################################
 # Cross-reference x86_64 ABI "card"