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 14:57:15 +0100 |
| commit | 438e57a43f096d37bf316869b98780e24596a5e8 (patch) | |
| tree | 0d52ee6407f2d08ca306812f8e77c45537b32e75 /util/perl | |
| parent | 8f26f9d5811f0d4faa7d0763e0481a434a9ddc5a (diff) | |
Catch SIGPIPE in TLSProxy::Proxy::clientstart
Reviewed-by: Richard Levitte <levitte@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/5071)
Diffstat (limited to 'util/perl')
| -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 99b0dedd5b..cc21bd6ac9 100644 --- a/util/perl/TLSProxy/Proxy.pm +++ b/util/perl/TLSProxy/Proxy.pm @@ -294,6 +294,7 @@ sub clientstart #Wait for either the server socket or the client socket to become readable my @ready; my $ctr = 0; + local $SIG{PIPE} = "IGNORE"; while( (!(TLSProxy::Message->end) || (defined $self->sessionfile() && (-s $self->sessionfile()) == 0)) |