From: Bernd Edlinger <bernd.edlinger@hotmail.de>
Date: Sat, 13 Jan 2018 09:24:45 +0000 (+0100)
Subject: Catch SIGPIPE in TLSProxy::Proxy::clientstart
X-Git-Tag: OpenSSL_1_1_0h~137
X-Git-Url: https://git.librecmc.org/?a=commitdiff_plain;h=8e3f60de0c7d7f34a4d9126e27dd3416d64f2011;p=oweals%2Fopenssl.git

Catch SIGPIPE in TLSProxy::Proxy::clientstart

Reviewed-by: Richard Levitte <levitte@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/5071)

(cherry picked from commit 438e57a43f096d37bf316869b98780e24596a5e8)
---

diff --git a/util/perl/TLSProxy/Proxy.pm b/util/perl/TLSProxy/Proxy.pm
index d33637a234..70f9bcb45c 100644
--- a/util/perl/TLSProxy/Proxy.pm
+++ b/util/perl/TLSProxy/Proxy.pm
@@ -279,6 +279,7 @@ sub clientstart
 
     #Wait for either the server socket or the client socket to become readable
     my @ready;
+    local $SIG{PIPE} = "IGNORE";
     while(!(TLSProxy::Message->end) && (@ready = $sel->can_read)) {
         foreach my $hand (@ready) {
             if ($hand == $server_sock) {