From 85b4647470406cd3bc20061874dfef9e0b112e23 Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Mon, 10 Jul 2023 03:04:18 -0400
Subject: Remove nonblocking, it breaks stuff

---
 lib/peer.tcl | 2 --
 1 file changed, 2 deletions(-)

(limited to 'lib')

diff --git a/lib/peer.tcl b/lib/peer.tcl
index 262ac5da..7b7db91d 100644
--- a/lib/peer.tcl
+++ b/lib/peer.tcl
@@ -41,7 +41,6 @@ proc ::peer {process} {
             if {$type eq "connect"} {
                 log "Connected"
                 variable connected true
-                fconfigure $chan -blocking false
 
                 # Establish a peering on their end, in the reverse
                 # direction, so they can send stuff back to us.
@@ -49,7 +48,6 @@ proc ::peer {process} {
                 # (because of how `run` is implemented above)
                 run {
                     variable chan [uplevel {set chan}]
-                    fconfigure $chan -blocking false
 
                     variable connected true
                     proc run {msg} {
-- 
cgit v1.2.3