From ec6608ff2940d66d5e994398b2f2b20b882da7ec Mon Sep 17 00:00:00 2001
From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Sun, 14 Feb 2010 02:04:37 +0000
Subject: [PATCH] Handle socket connection failures properly

Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>
---
 lib/irc/picoirc.tcl | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lib/irc/picoirc.tcl b/lib/irc/picoirc.tcl
index c6429aa..86c0dad 100644
--- a/lib/irc/picoirc.tcl
+++ b/lib/irc/picoirc.tcl
@@ -118,6 +118,11 @@ proc ::picoirc::SocksConnect {context} {
     global tcl_platform
     upvar #0 $context irc
     fileevent $irc(socket) writable {}
+    if {[set err [fconfigure $irc(socket) -error]] ne ""} {
+        Callback $context close $err
+        catch {close $irc(socket)}
+        return
+    }
     socks5::init $irc(socket) $irc(server) $irc(port) \
         -username $tcl_platform(user) \
         -command [list [namespace origin SocksConnected] $context]
-- 
2.23.0