X-Git-Url: https://git.openssl.org/?p=openssl.git;a=blobdiff_plain;f=crypto%2Fsha%2Fasm%2Fsha512p8-ppc.pl;h=ea3d308373722a8698ae4a6956cbf42d02fb848c;hp=9ee3ed7734e91851fc032caf5bc2cb18b60cc1a5;hb=32be631ca1f2b73c92e4f7f5d23f1c3aee80ec69;hpb=3b740f6ec0562a97046277c8246b21163b1a7553

diff --git a/crypto/sha/asm/sha512p8-ppc.pl b/crypto/sha/asm/sha512p8-ppc.pl
index 9ee3ed7734..ea3d308373 100755
--- a/crypto/sha/asm/sha512p8-ppc.pl
+++ b/crypto/sha/asm/sha512p8-ppc.pl
@@ -420,4 +420,4 @@ ___
 
 $code =~ s/\`([^\`]*)\`/eval $1/gem;
 print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";