Socket error # 5

[zencode1]

In certain situations, my web server has encountered socket error # 5. I tracked down the cause to this line in TIdOpenSSLIOHandlerClientBase.CheckForError:

  Result := FTLSSocket.GetErrorCode(ALastResult);
  case Result of
    SSL_ERROR_SYSCALL:
      inherited CheckForError(ALastResult);

The result of CheckForError needs to be assigned to Result:

  Result := FTLSSocket.GetErrorCode(ALastResult);
  case Result of
    SSL_ERROR_SYSCALL:
      Result := inherited CheckForError(ALastResult);