From 93b5865bd7cf7a93bd9c8aa6719edba1101992f2 Mon Sep 17 00:00:00 2001
From: gahr <gahr@gahr.ch>
Date: Tue, 27 Sep 2016 20:06:49 +0000
Subject: [4d5ae7d88a] Restore default-to-error logic in TcpConnect

---
 unix/tclUnixSock.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/unix/tclUnixSock.c b/unix/tclUnixSock.c
index 8167077..3942df8 100644
--- a/unix/tclUnixSock.c
+++ b/unix/tclUnixSock.c
@@ -1098,7 +1098,7 @@ TcpConnect(
 {
     socklen_t optlen;
     int async_callback = statePtr->flags & TCP_ASYNC_PENDING;
-    int ret = -1, error = errno;
+    int ret = -1, error = EHOSTUNREACH;
     int async = statePtr->flags & TCP_ASYNC_CONNECT;
 
     if (async_callback) {
-- 
cgit v0.12