X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/ircbot/blobdiff_plain/6425c2d6d84966e13ce4551efa34af153314c427..a867f5471a1c97cf8c10acbc30f6cd0503b68832:/bot.tcl

diff --git a/bot.tcl b/bot.tcl
index 876a238..ad5c908 100755
--- a/bot.tcl
+++ b/bot.tcl
@@ -1505,11 +1505,11 @@ proc fail {msg} {
 }
 
 proc ensure_connecting {} {
-    global sock ownfullname host port nick
+    global sock ownfullname host port nick socketargs
     global musthaveping_ms musthaveping_after
     
     if {[info exists sock]} return
-    set sock [socket $host $port]
+    set sock [eval socket $socketargs [list $host $port]]
     fconfigure $sock -buffering line
     fconfigure $sock -translation crlf