diff options
author | Bernd Edlinger <bernd.edlinger@hotmail.de> | 2018-01-13 10:24:45 +0100 |
---|---|---|
committer | Bernd Edlinger <bernd.edlinger@hotmail.de> | 2018-01-13 15:03:02 +0100 |
commit | 8e3f60de0c7d7f34a4d9126e27dd3416d64f2011 (patch) | |
tree | 4c59bf21ce58d229d850820407932611d8d58d98 /util | |
parent | 19c708d77d6b61fbd46c13d43f2b078eae5362f9 (diff) |
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)
Diffstat (limited to 'util')
-rw-r--r-- | util/perl/TLSProxy/Proxy.pm | 1 |
1 files changed, 1 insertions, 0 deletions
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) { |