From 77113c6828286012fe17288e3132811cb24f6fe3 Mon Sep 17 00:00:00 2001
From: oehhar <harald.oehlmann@elmicron.de>
Date: Mon, 7 Apr 2014 12:34:18 +0000
Subject: Return async connect error by first following read or write
 operation.

---
 win/tclWinSock.c | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/win/tclWinSock.c b/win/tclWinSock.c
index ed9fa32..b05dc32 100644
--- a/win/tclWinSock.c
+++ b/win/tclWinSock.c
@@ -585,11 +585,22 @@ WaitForConnect(
     ThreadSpecificData *tsdPtr;
 
     /*
+     * Check if an async connect error is not jet reported.
+     * If yes, report it now.
+     */
+
+    if ( errorCodePtr != NULL && statePtr->error != 0 ) {
+	*errorCodePtr = statePtr->error;
+	statePtr->error = 0;
+	return -1;
+    }
+
+    /*
      * Check if an async connect is running. If not return ok
      */
     if ( !(statePtr->flags & TCP_ASYNC_CONNECT_REENTER_PENDING) )
 	return 0;
-    
+
     /*
      * Be sure to disable event servicing so we are truly modal.
      */
-- 
cgit v0.12