Merge BoringSSL c1d8c5b: Handle errors from close in perlasm scripts.

crypto/chacha/asm/chacha-armv4.pl

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

crypto/chacha/asm/chacha-armv8.pl

@@ -1134,4 +1134,4 @@ foreach (split("\n",$code)) {
 
 	print $_,"\n";
 }
-close 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;
+close STDOUT or die "error closing STDOUT";

crypto/chacha/asm/chacha-x86_64.pl

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

crypto/cipher_extra/asm/aes128gcmsiv-x86_64.pl

@@ -2253,4 +2253,4 @@ aes256gcmsiv_kdf();
 
 print $code;
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT";

crypto/fipsmodule/aes/asm/aes-586.pl

@@ -1608,4 +1608,4 @@ sub enckey()
 
 &asm_finish();
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT";

crypto/fipsmodule/aes/asm/aes-armv4.pl

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@@ -1507,4 +1507,4 @@ ___
 
 print $code;
 
-close 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;
+close STDOUT or die "error closing STDOUT";

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

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

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

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

crypto/fipsmodule/ec/asm/ecp_nistz256-armv4.pl

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

crypto/fipsmodule/ec/asm/ecp_nistz256-armv8.pl

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

crypto/fipsmodule/ec/asm/ecp_nistz256-x86.pl

@@ -1397,4 +1397,4 @@ for (@ARGV) { $sse2=1 if (/-DOPENSSL_IA32_SSE2/); }
 
 &asm_finish();
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT";

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

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

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

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

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

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

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

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

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

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

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

@@ -1150,7 +1150,7 @@ my ($Xhi,$Xi)=@_;
 &asciz("GHASH for x86, CRYPTOGAMS by <appro\@openssl.org>");
 &asm_finish();
 
-close 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

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

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

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

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

@@ -1287,4 +1287,4 @@ sub bodyx_00_15 () {			# +10%
 
 &asm_finish();
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT";

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

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

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

@@ -779,4 +779,4 @@ sub BODY_00_15_ssse3 {		# "phase-less" copy of BODY_00_15_sse2
 
 &asm_finish();
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT";

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

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

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

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

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

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

crypto/perlasm/arm-xlate.pl

@@ -217,4 +217,4 @@ while(my $line=<>) {
 print "#endif\n" if ($flavour eq "linux32" || $flavour eq "linux64");
 print "#endif  // !OPENSSL_NO_ASM\n";
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT";

crypto/perlasm/x86_64-xlate.pl

@@ -1256,7 +1256,7 @@ print "END\n"				if ($masm);
 print "#endif\n"			if ($gas);
 
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
 
 #################################################
 # Cross-reference x86_64 ABI "card"

crypto/poly1305/asm/poly1305-armv4.pl

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

crypto/poly1305/asm/poly1305-armv8.pl

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

crypto/poly1305/asm/poly1305-x86.pl

@@ -1220,4 +1220,4 @@ my $addr = shift;
 
 &asm_finish();
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT";

crypto/poly1305/asm/poly1305-x86_64.pl

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