for my $dummy (1) {
        #DEBUG( 'calling ssleay::connect' );
        my $rv = Net::SSLeay::connect($ssl);
        $DEBUG>=3 && DEBUG("Net::SSLeay::connect -> $rv" );
        if ( $rv < 0 ) {
            unless ( $self->_set_rw_error( $ssl,$rv )) {
                $self->error("SSL connect attempt failed with unknown error");
                delete ${*$self}{'_SSL_opening'};
                ${*$self}{'_SSL_opened'} = -1;
                $DEBUG>=1 && DEBUG( "fatal SSL error: $SSL_ERROR" );
                return $self->fatal_ssl_error();
            }

            $DEBUG>=2 && DEBUG('ssl handshake in progress' );
            # connect failed because handshake needs to be completed
            # if socket was non-blocking or no timeout was given return with this error
            return if ! defined($timeout);

            # wait until socket is readable or writable
            my $rv;
            if ( $timeout>0 ) {
                my $vec = '';
                vec($vec,$self->fileno,1) = 1;
                $DEBUG>=2 && DEBUG( "waiting for fd to become ready: $SSL_ERROR" );
                $rv =
                    $SSL_ERROR == SSL_WANT_READ ? select( $vec,undef,undef,$timeout) :
                    $SSL_ERROR == SSL_WANT_WRITE ? select( undef,$vec,undef,$timeout) :
                    undef;
            } else {
                $DEBUG>=2 && DEBUG("handshake failed because no more time" );
                $! = ETIMEDOUT
            }
            if ( ! $rv ) {
                $DEBUG>=2 && DEBUG("handshake failed because socket did not became ready" );
                # failed because of timeout, return
                $! ||= ETIMEDOUT;
                delete ${*$self}{'_SSL_opening'};
                ${*$self}{'_SSL_opened'} = -1;
                $self->blocking(1); # was blocking before
                return
            }

            # socket is ready, try non-blocking connect again after recomputing timeout
            $DEBUG>=2 && DEBUG("socket ready, retrying connect" );
            my $now = time();
            $timeout -= $now - $start;
            $start = $now;
            redo;

        } elsif ( $rv == 0 ) {
            delete ${*$self}{'_SSL_opening'};
            $DEBUG>=2 && DEBUG("connection failed - connect returned 0" );
            $self->error("SSL connect attempt failed because of handshake problems" );
            ${*$self}{'_SSL_opened'} = -1;
            return $self->fatal_ssl_error();
        }
    }