package IO::Socket::SSL;
 
our $VERSION = '2.070';

##### about a thousand lines omitted #####

#Call to accept occurs when a new client connects to a server using
#IO::Socket::SSL
sub accept {
    my $self = shift || return _invalid_object();
    my $class = shift || 'IO::Socket::SSL';
 
    my $socket = ${*$self}{'_SSL_opening'};
    if ( ! $socket ) {
        # underlying socket not done
        $DEBUG>=2 && DEBUG('no socket yet' );                                 ##### <--- this is line 1031 #####
        $socket = $self->SUPER::accept($class) || return;
        $DEBUG>=2 && DEBUG('accept created normal socket '.$socket );
 
        # don't continue with accept_SSL if SSL_startHandshake is set to 0
        my $sh = ${*$self}{_SSL_arguments}{SSL_startHandshake};
        if (defined $sh && ! $sh) {
            ${*$socket}{_SSL_ctx} = ${*$self}{_SSL_ctx};
            ${*$socket}{_SSL_arguments} = {
                %{${*$self}{_SSL_arguments}},
                SSL_server => 0,
            };
            $DEBUG>=2 && DEBUG('will not start SSL handshake yet');
            return wantarray ? ($socket, getpeername($socket) ) : $socket
        }
    }
 
    $self->accept_SSL($socket) || return;
    $DEBUG>=2 && DEBUG('accept_SSL ok' );
 
    return wantarray ? ($socket, getpeername($socket) ) : $socket;
}