From 5897e87cf7ce4f43845a25bc11ca74f3c0afbee1 Mon Sep 17 00:00:00 2001
From: geby <geby@7c85be65-684b-0410-a082-b2ed4fbef004>
Date: Fri, 22 Jan 2010 15:03:30 +0000
Subject: [PATCH] Fixed TSSLOpenSSL.RecvBuffer condition on connection close.

git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@114 7c85be65-684b-0410-a082-b2ed4fbef004
---
 ssl_openssl.pas | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/ssl_openssl.pas b/ssl_openssl.pas
index b3659f5..dc68208 100644
--- a/ssl_openssl.pas
+++ b/ssl_openssl.pas
@@ -1,5 +1,5 @@
 {==============================================================================|
-| Project : Ararat Synapse                                       | 001.001.000 |
+| Project : Ararat Synapse                                       | 001.001.001 |
 |==============================================================================|
 | Content: SSL support by OpenSSL                                              |
 |==============================================================================|
@@ -615,10 +615,9 @@ begin
     err := SslGetError(FSsl, Result);
   until (err <> SSL_ERROR_WANT_READ) and (err <> SSL_ERROR_WANT_WRITE);
   if err = SSL_ERROR_ZERO_RETURN then
-    Result := 0
-  else
-    if (err <> 0) then
-      FLastError := err;
+    Result := 0;
+  if (err <> 0) then
+    FLastError := err;
 end;
 
 function TSSLOpenSSL.WaitingData: Integer;