Commit 7ad5fb62 authored by Viktor Dukhovni's avatar Viktor Dukhovni
Browse files

Fix TLSProxy race by adding missing eval 

Reviewed-by: default avatarRichard Levitte <levitte@openssl.org>
parent f2b9c257

util/TLSProxy/Proxy.pm

+2 −0
Changes for util/TLSProxy/Proxy.pm: 2 added lines, 0 removed lines.
Original line number Diff line number Diff line
@@ -226,12 +226,14 @@ sub clientstart 
    do {

        my $servaddr = $self->server_addr;

        $servaddr =~ s/[\[\]]//g; # Remove [ and ]

        eval {

            $server_sock = $IP_factory->(

                PeerAddr => $servaddr,

                PeerPort => $self->server_port,

                MultiHomed => 1,

                Proto => 'tcp'

            );

        };



        $retry--;

        if ($@ || !defined($server_sock)) {