Catch SIGPIPE in TLSProxy::Proxy::clientstart
[openssl.git] / util / perl / TLSProxy / Proxy.pm
index 99b0ded..cc21bd6 100644 (file)
@@ -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))